如何在R语言测试中临时修改Sys.Date()的返回日期？

你可以使用testthat包中的mock功能，在测试期间临时替换Sys.Date()的返回值，无需修改原函数的签名。具体有两种常用方式，取决于你的testthat版本：

方法1：使用local_mock（testthat 3.0.0+ 推荐） #

local_mock会在当前测试的作用域内临时替换目标函数，测试完成后自动恢复原函数，不会影响其他测试用例。

测试代码示例：

library(testthat)

# 测试日期在截止日前的情况
test_that("returns original message when date is before 2026-01-01", {
  test_msg <- "test msg"
  # 临时让Sys.Date()返回2025-12-31
  local_mock(Sys.Date = function() as.Date("2025-12-31"))
  expect_equal(to_be_tested(test_msg), test_msg)
})

# 测试日期在截止日后的情况
test_that("returns 'messages expired' when date is after 2026-01-01", {
  # 临时让Sys.Date()返回2026-01-02
  local_mock(Sys.Date = function() as.Date("2026-01-02"))
  expect_equal(to_be_tested("any message"), "messages expired")
})

方法2：使用with_mock（兼容旧版testthat） #

如果你的testthat版本低于3.0.0，可以用with_mock包裹测试逻辑，同样能实现临时替换：

library(testthat)

test_that("returns original message when date is before 2026-01-01", {
  test_msg <- "test msg"
  with_mock(
    Sys.Date = function() as.Date("2025-12-31"),
    expect_equal(to_be_tested(test_msg), test_msg)
  )
})

test_that("returns 'messages expired' when date is after 2026-01-01", {
  with_mock(
    Sys.Date = function() as.Date("2026-01-02"),
    expect_equal(to_be_tested("any message"), "messages expired")
  )
})

说明 #

这两种方式都不需要修改原函数的签名，通过mock技术隔离了系统日期的依赖，让测试结果不再随真实时间变化，保证测试的稳定性和可重复性。

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