r - 在向量上使用assert_that会引发错误

Question

我试图检查向量中的每个值是否小于或等于 2。assert_that 似乎对此有问题(可能是由于我缺乏理解)。有人能告诉我这里出了什么问题吗？

> require(assertthat)
> x<-c(1,2,1.5)
> assert_that(x<=2) #should return true
Error: assert_that: assertion has length greater than 1
> y<-c(1,2,1.5,3,3)
> assert_that(y<=2) #should return false
Error: assert_that: assertion has length greater than 1
> stopifnot(x<=2)

Answer 1

只是说

assert_that(y<=2)

是不明确的。您想要全部 y<=2 ？您想要至少一个 y<=2 ？您可以使用assert_that(all(y<=2))或assert_that(any(y<=2))分别折叠为单个断言。