関数内に停止条件を入れたい。条件は、最初と2番目の要素が順序と長さで完全に一致する必要がある場合です。
A <- c("A", "B", "C", "D")
B <- A
C <- c("A", "C", "C", "E")
> A == B
[1] TRUE TRUE TRUE TRUE
これは前進するのに良い状況です
> A == C
[1] TRUE FALSE TRUE FALSE
1つのfalseがあるため、この条件は停止し、2番目と4番目の列で条件が保持されないことを出力します。
if (A != B) {
stop("error the A and B does not match at column 2 and 4"} else {
cat ("I am fine")
}
Warning message:
In if (A != B) (stop("error 1")) :
the condition has length > 1 and only the first element will be used
明らかな何かが欠けていますか?また、エラー位置がどこにあるかを出力できますか?
all
は1つのオプションです。
> A <- c("A", "B", "C", "D")
> B <- A
> C <- c("A", "C", "C", "E")
> all(A==B)
[1] TRUE
> all(A==C)
[1] FALSE
ただし、リサイクルには注意が必要な場合があります。
> D <- c("A","B","A","B")
> E <- c("A","B")
> all(D==E)
[1] TRUE
> all(length(D)==length(E)) && all(D==E)
[1] FALSE
length
のドキュメントには、現在長さ1の整数しか出力されていませんが、将来変更される可能性があるため、長さテストをall
でラップする理由です。
それらは同一ですか?
> identical(A,C)
[1] FALSE
一致しない要素:
> which(A != C)
[1] 2 4
おそらく_all.equal
_およびwhich
を使用して、必要な情報を取得します。何らかの理由で_all.equal
_ブロックで_if...else
_を使用することは推奨されないため、isTRUE()
でラップします。詳細については、_?all.equal
_を参照してください。
_foo <- function(A,B){
if (!isTRUE(all.equal(A,B))){
mismatches <- paste(which(A != B), collapse = ",")
stop("error the A and B does not match at the following columns: ", mismatches )
} else {
message("Yahtzee!")
}
}
_
そして使用中:
_> foo(A,A)
Yahtzee!
> foo(A,B)
Yahtzee!
> foo(A,C)
Error in foo(A, C) :
error the A and B does not match at the following columns: 2,4
_