是否建议使用 RUnit 的 check* 函数来创建前置条件/后置条件语句，或者这样做是否会带来一些性能或其他方面的惩罚？
最佳答案
我知道这是一篇旧帖子，但也许这个答案对寻找运算符形式的 R 断言的其他人有用。如果您想在麻烦的语句末尾添加断言，这可能是朝着正确方向迈出的一步。
"%assert%" <- function(e1, e2)
{
args <- as.list(match.call()[-1])
defs <- as.list(args$e1)
preds <- as.list(args$e2)[-1L]
for(var in names(defs)[names(defs) != ""]) assign(var, eval(defs[[var]]))
for(p in unlist(preds)) eval(
parse(
text = paste0("if(!", deparse(p), ") stop('assertion ",deparse(p) , " is not true')")
)
)
return(eval(args$e1))
}
示例: 如果您正在计算向量 x 的平均值并且您想确保每个元素都在 1 到 10 之间，您可以使用
mean(x = sample(1:10, size = 100, replace = T)) %assert% c(min(x) > 0 && max(x) < 11)
#5.62
如果此条件不成立，您将收到信息性(ish)错误，例如
mean(x = sample(11:20, size = 100, replace = T)) %assert% c(min(x) > 0, max(x) < 11)
#Error in eval(expr, envir, enclos) : assertion max(x) < 11 is not true
它完全未经测试，因此请自行承担风险!
关于unit-testing - 如何在R中进行断言？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/4897327/