在向量上使用 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))分别折叠为单个断言。