R语言嵌套source脚本时如何将全部变量存入指定独立环境

R原生source()函数的local参数默认值为FALSE，此时被调用脚本内的所有变量默认写入全局环境.GlobalEnv。调用main.R时指定的local = env仅作用于main.R脚本本身的顶层赋值逻辑，main.R内部调用的source("funs.R")依然沿用local = FALSE的默认行为，因此funs.R中定义的hello函数会被写入全局环境，而非你指定的独立环境。

核心逻辑为临时覆盖source函数的local参数默认值，让本次运行中所有嵌套调用的source默认将变量写入指定的独立环境，执行结束后自动恢复原有source函数的行为，不会影响其他代码的正常运行。

代码实现 #

# 创建自定义独立环境
target_env <- new.env()

# 保存原始source函数，避免永久修改基础函数
original_source <- base::source

# 重写source函数，默认local参数为目标独立环境
source <- function(..., local = target_env) {
  original_source(..., local = local)
}

# 执行主脚本，所有嵌套的source调用都会自动使用自定义local参数
source("main.R", local = target_env)

# 执行完毕后恢复原始source函数，清理临时变量
rm(source, original_source)

• 查看目标环境变量：执行ls(target_env)会返回"hello"和"x"，两个变量均已存入指定独立环境
• 查看全局环境：执行ls(.GlobalEnv)不会出现hello、x变量，全局环境无污染

如果子脚本内显式为source指定了local参数，本方案会尊重子脚本内的显式设置，仅修改未指定local参数时的默认行为。

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