testthat：仅当满足先前的期望时才测试期望

问题描述

根据先前期望的结果有条件地评估期望的规范方法是什么？

library(testthat)
run_test <- function(x) {
   test_that("x$y has non zero length and its first element is a 1 ",{
      expect_gt(length(x$y),0)
      expect_equal(x$y[[1]],1)
   })
}

l1 <- list(y = list())
l2 <- list(y = list(1))
l3 <- list(y = list(1,2))
l4 <- list(y = list(2,1))

run_test(l1) ## fails w/ an error
run_test(l2) ## passes
run_test(l3) ## passes
run_test(l4) # #fails

run_test(l1) 抛出错误（不足为奇）。如何避免这种情况？我是否需要像这样以某种方式复制测试：

expect_gt(length(x$y),0)
if (length(x$y) > 0) {
  expect_equal(x$y[[1]],1)
}

或者我将如何编写这样的测试？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）