如何在testthat加载R包前设置全局选项？

针对你遇到的测试时数据库连接缓存不可复现的问题，结合你的.onLoad()开关逻辑，以下几种方案可以实现testthat在包加载前设置SQLHELPER_NO_CONNECT_ON_LOAD选项，覆盖devtools::test()、R CMD check等所有测试场景：

优化.onLoad()逻辑（可选） #

先简化开关代码，让逻辑更清晰：

.onLoad <- function(libname, pkgname) {
  # 默认创建连接，仅当选项为TRUE时跳过
  no_connect <- getOption("SQLHELPER_NO_CONNECT_ON_LOAD", default = FALSE)
  if (!no_connect) {
    create_connections()
  }
}

方案一：修改tests/testthat.R脚本 #

当前testthat官方允许在测试启动前做初始化操作，该方案兼容所有测试场景：
在tests/testthat.R中先设置选项，再加载包和执行测试：

# 先设置禁用连接的选项
options(SQLHELPER_NO_CONNECT_ON_LOAD = TRUE)

library(testthat)
library(你的包名)

test_check("你的包名")

不管是devtools::test()还是R CMD check，都会在包加载前执行选项设置，完美解决问题。

方案二：项目级.Rprofile自动设置 #

在项目根目录创建.Rprofile文件，添加以下代码，实现测试环境自动触发选项设置：

# 仅在testthat测试环境中设置选项
if (requireNamespace("testthat", quietly = TRUE) && testthat::is_testing()) {
  options(SQLHELPER_NO_CONNECT_ON_LOAD = TRUE)
}

该方案无需修改测试脚本，R启动时会先执行.Rprofile，早于包加载，适合日常开发中一键运行测试的场景。注意这个.Rprofile仅作用于当前项目，不会影响全局R环境。

方案三：devtools::test()手动传参（临时场景） #

如果只是临时测试需要，可直接调用devtools::test()时传入before_load参数：

devtools::test(before_load = function() {
  options(SQLHELPER_NO_CONNECT_ON_LOAD = TRUE)
})

该方案灵活但需要手动指定，适合临时调试场景。

内容的提问来源于stack exchange，提问作者majr