r - 在 if 语句中比较两个向量

Question

我想在函数内放置停止条件。条件是第一个和第二个元素的顺序和长度是否应该完美匹配。

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

由于有一个假，此条件停止并输出该条件在第 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

我错过了一些明显的东西吗？我还可以输出错误位置在哪里？

Answer 1

all 是一个选项:

> 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.