如何让Rprofile中定义的空闲会话监控函数在清空环境后仍运行？

问题背景 #

在多用户共享的JupyterHub环境中，通过Rprofile配置了会话空闲自动关闭的监控逻辑：定期检测用户最后活动时间，超过阈值则终止会话。但用户执行清空工作区操作（如rm(list=ls())）时，监控相关的函数和变量会被删除，导致监控失效。此前尝试过单独环境定义、终结器、gdata::keep、告知用户避免清空等方案，均无法解决问题。

可行解决方案 #

核心思路是将监控的核心函数、状态变量隔离到用户无权修改的受保护环境中，彻底避免全局环境操作对监控逻辑的影响。以下是调整后的完整代码：

# 创建受保护的监控环境：隐藏、独立且锁定，防止用户修改/删除
.watchdog_env <- new.env(parent = emptyenv())
# 锁定环境及其中的所有绑定，禁止修改或删除
lockEnvironment(.watchdog_env, bindings = TRUE)

# 在受保护环境中定义活动更新回调函数
.watchdog_env$update_activity <- function(expr, value, ok, visible) {
  # 将最后活动时间存储在受保护环境内
  assign(".last_activity", Sys.time(), envir = .watchdog_env)
  # cat(sprintf("[watchdog] Updated at %s\n", Sys.time()))
  return(TRUE)
}

# 添加任务回调，直接引用受保护环境中的函数
addTaskCallback(.watchdog_env$update_activity, name = "update_activity")

# 在受保护环境中定义空闲检查函数
.watchdog_env$check_idle <- function(timeout_minutes = 1) {
  now <- Sys.time()
  # 从受保护环境读取最后活动时间
  idle_time <- as.numeric(difftime(now, .watchdog_env$.last_activity, units = "mins"))
  # cat(sprintf("[watchdog] Idle for %.2f minutes\n", idle_time))
  
  if (idle_time > timeout_minutes) {
    cat("会话闲置时间过长，即将退出。\n")
    .Last()
    q("no")
  } else {
    # 递归调用时仍引用受保护环境中的检查函数
    later::later(function() {
      .watchdog_env$check_idle(timeout_minutes)
    }, delay = 60) # 延迟单位：秒
  }
}

# 初始化最后活动时间到受保护环境
assign(".last_activity", Sys.time(), envir = .watchdog_env)

# 启动定时检查逻辑
later::later(function() {
  .watchdog_env$check_idle(180) # 闲置超时阈值：180分钟
}, delay = 60) # 首次检查延迟：60秒

方案原理 #

1. 隔离环境：创建的.watchdog_env以emptyenv()为父环境，完全独立于全局环境（.GlobalEnv），用户的全局环境操作不会影响到它。
2. 锁定保护：通过lockEnvironment锁定环境及所有绑定，用户无法修改、删除环境内的函数和变量，即使执行清空全局环境的操作也无效。
3. 稳定引用：所有回调和定时任务均直接引用受保护环境中的函数，避免依赖全局环境的对象，确保监控逻辑持续运行。

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