测试在 R 中加载 RDS 文件的函数

问题描述

我想知道您将如何使用加载 inst/extdata rds 文件进行计算的 testthat 来测试函数？

my_function = function() {

  file = paste(find.package("xyz"),"/extdata/my_file.rds",sep = "")

  if (!file.exists(file)) {
    return(stop("File Could not be found."))
  }

  population = readRDS(file)

  ... and then some computation
}

当我做这样的测试时...

test_that("my function can read file",{
  expect_equal(my_function(),"xyz")
})

我收到此错误...

Error (test-xyz.R:63:3): my function can read file
Error: File Could not be found.

感谢您的意见！

解决方法

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

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

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