在 R 中测试与用户的交互

问题描述

如何测试随机生成选项的函数的行为，最好使用 testthat 库？

devtools::test() 在最后一行给我一个错误，因为答案永远不会变成是。我想测试当用户从菜单中选择一个选项时函数是否正确返回 true？

下面是一个小的示例代码。

yes <- c("Yes","Definitely","Positive","For sure","Yup","Yeah","Absolutely")
no <- c("Not sure","Not Now","Negative","No","nope","Absolutely not")

ask_confirmation <- function(title = NULL,positive = yes,negative = no) {
    options <- c(sample(positive,1),sample(negative,2)) # Mix which ones
    options <- sample(options,3) # Random order
    sel <- menu(options,title = title)
    invisible(c("Cancel",options)[sel + 1])
}

解决方法

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

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

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