如何用testthat测试R包加载机制（含::调用场景）

针对你需要测试::首次调用和library()加载两种场景的需求，这里提供两个可靠的实现方法，避免修改全局状态或依赖已加载的命名空间：

方法一：用callr在独立进程中测试（推荐） #

callr可以启动全新的R进程执行测试逻辑，完全隔离当前测试环境中已加载的包，完美模拟首次调用::时的干净状态：

test_that("首次调用::触发正确的加载逻辑", {
  # 在独立R进程中执行测试，确保包从未被加载
  test_result <- callr::r(function() {
    # 加载testthat用于断言
    library(testthat)
    # 首次调用包函数，触发命名空间加载
    expect_message(package::statefunction("Test"))
    # 返回TRUE表示测试通过
    TRUE
  })
  # 验证独立进程中的测试是否通过
  expect_true(test_result)
})

这个方法的优势是完全不受当前测试环境的影响，测试结果最准确，不会修改全局状态，也不会干扰其他测试用例。

方法二：用withr临时卸载包（备选） #

如果不想引入额外依赖包，可以用withr的with_unload函数临时卸载包，测试完成后自动恢复原有状态：

test_that("未加载状态下调用::正常工作", {
  withr::with_unload("package", {
    # 此时包未加载，调用::会触发首次加载逻辑
    expect_message(package::statefunction("Test"))
  })
})

with_unload会在代码块执行期间卸载目标包，执行完成后自动恢复到之前的加载状态，尽可能减少对全局环境的影响。

注意事项 #

• 如果你选择手动卸载包（不用withr），一定要确保在测试结束后重新加载包，否则会影响后续依赖该包的测试用例。
• 优先选择callr方案，因为独立进程的测试环境完全干净，能最真实地模拟用户首次调用::的场景。

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