如何在R脚本内创建独立于全局环境的专属运行环境？

完全可以在R脚本内部自行实现独立运行环境，无需通过外部source()调用控制，下面是两种零侵入修改原有代码的实现方案：

这是改造成本最低的方案，直接把现有所有代码放到local()的代码块中即可，块内所有变量、函数默认存储在local()生成的临时私有环境中，不会泄露到全局环境。

# 脚本第一行直接开启私有环境块
local({
  # 这里原样放入你原有数千行的所有代码，无需修改核心逻辑
  sensitive_data <- "涉密业务数据"
  clean_sensitive <- function() {
    # 原有清除变量的代码只会清空当前私有环境的内容，完全不会触碰全局环境变量
    rm(list = ls(all.names = TRUE), envir = environment())
  }
  calc_result <- mean(rnorm(1000))
  
  # 确有需要导出到全局的变量，可以主动用assign指定环境
  # assign("public_result", calc_result, envir = .GlobalEnv)
})

# 脚本运行结束后，全局环境完全搜索不到sensitive_data、clean_sensitive等私有变量

该方案下私有环境会在脚本运行结束后自动销毁，适合运行完不需要保留脚本内部变量的场景，也从根源避免了重名变量覆盖全局关键变量的问题。

如果运行完脚本后还需要调用内部的变量、函数，可以主动创建一个命名环境绑定所有代码运行，仅会在全局环境中保留这一个环境对象，不会泄露其他变量：

# 脚本开头显式创建自定义独立环境，可指定parent参数控制继承关系
my_analysis_env <- new.env(parent = .GlobalEnv)

# 用with()绑定所有代码到自定义环境运行
with(my_analysis_env, {
  # 这里原样放入所有原有代码
  var1 <- "分组统计结果"
  calc_func <- function(x) sum(x^2)
  # 内部清除操作同样只会影响当前自定义环境
})

# 后续需要调用脚本内内容时，通过$符号访问即可
# my_analysis_env$calc_func(c(1,2,3))

• 如果原有脚本中存在手动指定envir = .GlobalEnv的操作，需要删除这类声明或者修改为当前环境，才不会出现变量泄露
• 私有环境内可以直接引用全局环境的已有变量，无需额外导入配置
• 两种方案都仅需要给原有代码首尾加封装代码，不需要修改核心逻辑，适配大脚本的成本极低

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