如何在测试子集之间共享公共R上下文？

我正在开发一个R软件包，使用testthat软件包来自动化测试（a la Hadley）

部分测试需要访问一组文件，这些文件存储在文件夹inst/testdata下的包中（请参阅）

当我希望考虑代码的因素并在不同的测试中重用代码时，这样做的好实践是什么

根据，我应该在test/testthat文件夹中创建一个setup xyz.R函数，其中xyz代表函数名

如果我的测试子集很大（数百个测试），那么这就不是真正可行的。有任何经验证的智能解决方案建议吗

setup( {
lf <- list.files('../../inst/testdata', all.files = TRUE, full.names = TRUE)
}
)

设置（{
lf