为何test_that()内加载的包方法会跨测试可用？如何阻止？

testthat 的 test_that() 测试块并不提供命名空间级别的完全隔离，核心源于 R 的全局包加载机制：

• 当调用 insight::get_parameters() 这类包前缀调用时，R 会自动将 insight 包加载到全局命名空间，同时该包注册的所有 S3/S4 方法（比如 as.matrix.get_predicted）会被添加到 R 的全局方法调度系统中。
• R 的方法调度系统是全局维护的，一旦方法完成注册，后续所有测试块（无论是否在同一个 test_that() 内）都能访问到该方法，不会随单个测试块执行结束而自动清理。

• 用 local() 限定包依赖的作用域：在 test_that() 内部通过 local() 创建局部环境，配合 requireNamespace() 加载包命名空间（而非附加到搜索路径），尽可能缩小影响范围。示例：

  test_that("测试insight功能", {
    local({
      requireNamespace("insight", quietly = TRUE)
      # 执行依赖insight的测试逻辑
      params <- insight::get_parameters(model)
      expect_s3_class(params, "get_parameters")
    })
  })
  

  注意：此方法无法完全隔离 S3/S4 方法（因为方法注册是全局的），但能避免包附加到全局搜索路径。

• 模拟目标方法而非实际加载包：使用 testthat::local_mocked_bindings() 模拟需要的函数/方法，彻底避免加载目标包。示例：

  test_that("初始状态下as.matrix.get_predicted不存在", {
    expect_false("as.matrix.get_predicted" %in% methods("as.matrix"))
  })
  
  test_that("临时模拟insight相关方法", {
    local_mocked_bindings(
      get_parameters = function(x) {
        structure(data.frame(term = "x", estimate = 1), class = c("get_parameters", "data.frame"))
      }
    )
    # 使用模拟的get_parameters，无需加载insight
    result <- get_parameters(model)
    expect_s3_class(result, "get_parameters")
  })
  

• 手动清理全局方法：通过 setup() 和 teardown() 钩子记录初始方法列表，测试后移除新增的方法。示例：

  setup({
    # 记录测试开始时的as.matrix方法列表
    initial_as_matrix_methods <- methods("as.matrix")
    assign("initial_as_matrix_methods", initial_as_matrix_methods, envir = parent.frame())
  })
  
  teardown({
    # 对比并移除测试期间新增的方法
    current_methods <- methods("as.matrix")
    new_methods <- setdiff(current_methods, initial_as_matrix_methods)
    for (meth in new_methods) {
      rm(list = meth, envir = .GlobalEnv)
    }
  })
  
  test_that("加载insight后方法存在", {
    requireNamespace("insight")
    expect_true("as.matrix.get_predicted" %in% methods("as.matrix"))
  })
  
  test_that("测试后方法被清理", {
    expect_false("as.matrix.get_predicted" %in% methods("as.matrix"))
  })
  

  提示：此方法需谨慎使用，避免误删全局环境中原本需要的方法。

• 拆分测试文件实现完全隔离：将需要隔离的测试逻辑放在不同的 .R 测试文件中，使用 testthat::test_check() 单独运行单个文件（或借助 IDE 的单文件测试功能）。每个测试文件会在独立的 R 进程中运行，包加载和方法注册完全隔离，不会互相影响。

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