r之在 R 包中测试与用户的交互

我正在开发一个 R 包，其中一个函数通过 readline 通过标准输入实现与用户的交互。 .我现在想知道如何测试这个函数的行为，最好用 testthat图书馆。

好像test_that函数假设答案是 ""用于用户输入。我希望我可以测试用户可能输入的各种答案的行为条件。

下面是一个小的示例代码。在实际开发中，marryme函数在单独的文件中定义并导出到命名空间。devtools::test()在最后一行给我一个错误，因为答案永远不会变成是。我想测试当用户输入 "y" 时函数是否正确返回 true .

library(testthat) 
 
test_that("input", { 
  marryme <- function() { 
    ans <- readline("will you marry me? (y/n) > ") 
    return(ans == "y") 
  } 
 
  expect_false(marryme())  # this is good 
  expect_true(marryme())   # this is no good 
}) 

请您参考如下方法:

将 readLines() 与自定义连接一起使用

通过使用 readLines()而不是 readline() ，您可以定义连接，这允许您使用全局选项对其进行自定义。

您需要执行两个步骤:

.onAttach <- function(libname, pkgname){ 
  options(mypkg.connection = stdin()) 
} 

    library(testthat) 
 
    options(mypkg.connection = stdin()) 
 
    marryme <- function() { 
      cat("will you marry me? (y/n) > ") 
      ans <- readLines(con = getOption("mypkg.connection"), n = 1) 
      cat("\n") 
      return(ans == "y") 
    } 
 
    test_that("input", { 
 
      f <- file() 
      options(mypkg.connection = f) 
      ans <- paste(c("n", "y"), collapse = "\n") # set this to the number of tests you want to run 
      write(ans, f) 
 
      expect_false(marryme())  # this is good 
      expect_true(marryme())   # this is no good 
      # reset connection 
      options(mypkg.connection = stdin()) 
      # close the file 
      close(f) 
    }) 
#> will you marry me? (y/n) >  
#> will you marry me? (y/n) >