【发布时间】:2021-07-02 22:28:18
【问题描述】:
当我使用devtools::check() 构建和检查包时测试函数时,它会抛出错误Error: menu() cannot be used non-interactively
下面是一个小示例代码。
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])
}
如何克服这个问题?任何帮助将不胜感激。
【问题讨论】:
标签: r unit-testing testing devtools