如何在testthat测试中设置不同R_CONFIG_ACTIVE切换config配置？

当然可以实现测试环境自动切换配置的需求，以下是针对你场景的具体解决方案：

1. 确保批量测试环境生效（优化原有逻辑） #

你之前在tests/testthat.R里用withr::with_envvar包裹测试的写法已经能让test_dir()、devtools::test()、shiny::runTests()这类批量测试工具自动切换到test环境，这里可以微调下确保shiny的支持文件也在测试环境下加载：

withr::with_envvar(
  c(R_CONFIG_ACTIVE = "test"),
  {
    test_env <- shiny::loadSupport()
    test_dir("./testthat", env = test_env, reporter = c("progress", "fail"))
  }
)

2. 解决单个source测试文件的环境变量问题 #

直接source单个测试文件时不会走tests/testthat.R的逻辑，所以需要补充以下配置：

方案A：全局测试setup（推荐） #

在tests/testthat/目录下新建setup.R文件，写入以下代码：

# 仅在testthat测试运行时临时设置环境变量，不污染全局环境
if (requireNamespace("testthat", quietly = TRUE) && testthat::is_testing()) {
  withr::local_envvar(c(R_CONFIG_ACTIVE = "test"), .local_envir = parent.frame())
}

这样不管是批量测试还是单个source测试文件，只要处于testthat的测试上下文，就会自动切换到test配置，且测试结束后环境变量会自动恢复。

方案B：单个测试文件独立设置 #

如果不想用全局setup，也可以在每个测试文件开头添加这段逻辑：

# 检测是否在测试上下文，是则临时切换配置环境
if (testthat::is_testing()) {
  withr::local_envvar(c(R_CONFIG_ACTIVE = "test"))
}

# 测试示例
test_that("数据库配置正确", {
  expect_equal(config::get("db"), "my-test.db")
})

3. 效果验证 #

• 非测试环境：控制台直接运行config::get("db")，返回my-prod.db
• 批量测试：执行devtools::test()或testthat::test_dir()，所有测试用例使用my-test.db
• 单个source测试文件：source后，测试代码内的配置会切换到test环境，但全局环境的R_CONFIG_ACTIVE不会被修改

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