测试机已安装目标库时，如何测试依赖库不存在的条件分支单元用例

这类需要模拟依赖包不存在的单元测试场景，标准做法是使用testthat内置的函数模拟（Mock）能力，不需要手动修改原函数的运行环境。

推荐方案（适配 testthat 3.0.0 及以上版本） #

使用with_mocked_bindings临时替换requireNamespace的返回值，测试结束后会自动恢复原函数逻辑，无任何副作用：

library(testthat)

test_that("`f` returns 0 if `utils` is not found", {
  with_mocked_bindings(
    # 临时替换requireNamespace的返回值
    requireNamespace = function(...) FALSE,
    code = {
      expect_equal(f(), 0)
    }
  )
})

如果需要更精确的控制，只让指定包的检测返回不存在，其他包正常走原有逻辑，可以调整模拟函数的实现：

test_that("`f` returns 0 if `utils` is not found, other packages are not affected", {
  with_mocked_bindings(
    requireNamespace = function(package, ...) {
      if (package == "utils") {
        return(FALSE)
      }
      # 其他包调用原生的requireNamespace逻辑
      utils::requireNamespace(package, ...)
    },
    code = {
      expect_equal(f(), 0)
    }
  )
})

方案优势 #

1. 完全不需要修改原函数的属性，也不需要卸载本地已安装的依赖包，测试全程无副作用
2. 是testthat官方提供的标准模拟方案，代码可读性和可维护性远高于手动修改函数环境的实现
3. 可以灵活调整模拟函数的逻辑，适配更复杂的分支测试场景

如果你使用的是3.0.0以下的旧版testthat，可以用已经软弃用的with_mock接口实现类似效果，不过还是建议升级到最新版testthat使用更稳定的新接口。

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