源脚本以在R中分隔环境，而不是全局环境

Question

是否有一种方法可以在R中对脚本进行source() ，使其作为父级附加到全局环境（ .GlobalEnv ）？

当前，当我提供脚本时，该脚本的所有变量和函数都出现在我的全局（交互）环境中。 我想在搜索路径中包括这些变量和函数，但不在.GlobalEnv 。 也就是说，我希望源脚本的行为类似于附加包，该附加包在全局环境和基本环境之间附加（请参阅Advanced R Environments中的图 ）

Answer 1

像脚本一样打包脚本来获取脚本的最简单方法（即，在调用R脚本中定义的函数时， 词法作用域不会导致使用全局环境中定义的变量）。其父是.BaseNamespaceEnv ，然后使用该环境调用source() 。

例如，如果您具有如下脚本：

# << my-script.R >>
my_fun <- function(x){x + y}

然后在控制台上评估以下内容，不会产生错误，就像在自己的包中定义了my_fun一样：

source("my-script.R")
y = 2
my_fun(1)
#> 3

但是，如果创建一个环境，其search()路径不包括全局环境（ .GlobalEnv ），则从脚本中调用该函数时，将得到正确的错误：

# Create the environment:
ENV = new.env(parent = .BaseNamespaceEnv)
# Attache it to the search path so that objects in your environment can be
# found from the global environment (i.e. from the console):
attach(ENV)
# do things:
source("my-script.R",ENV)
y = 2
my_fun(1)
#> Error in .ENV$my_fun(3) : object 'y' not found

Answer 2

我也想使用sys.source函数的解决方案。 使用envir和toplevel.env参数可以方便地绕过全局环境（IMHO）。 根据链接的文档：

sys.source [p] sys.source给定文件中的表达式，然后在指定的环境中连续对其求值。

tstEnv <- new.env()
sys.source(file = "tst.R", envir = tstEnv, toplevel.env = tstEnv)

其中tst.R包含：

a <- 1
b <- 1

结果：

ls(envir = .GlobalEnv)
# [1] "tstEnv"
ls(envir = tstEnv)
# [1] "a" "b"
tstEnv$a
# [1] 1

Answer 3

从source文档中， local参数可以是一个确定在何处评估源表达式的环境。

这表明您可以创建一个新环境，运行将环境传递给local source ，然后attach环境attach到搜索路径。

或者，您可以使用attach和what=NULL来创建一个空环境，保存返回值，并将其传递给source local ：

tmp <- attach(what=NULL)
source('test.R', local=tmp)

或作为一行：

source('test.R', local=attach(NULL))

Answer 4

以下环境插入似乎可以实现所需的功能：

检查当前搜索路径：

search()
# [1] ".GlobalEnv"        "package:stats"     "package:graphics"
# [4] "package:grDevices" "package:utils"     "package:datasets"
# [7] "package:methods"   "Autoloads"         "package:base"

为source包添加新环境，并在source()时使用local参数：

myEnv <- new.env()    
source("some_other_script.R", local=myEnv)
attach(myEnv, name="sourced_scripts")

检查搜索路径：

search()
#  [1] ".GlobalEnv"        "sourced_scripts"   "package:dplyr"
#  [4] "package:stats"     "package:graphics"  "package:grDevices"
#  [7] "package:utils"     "package:datasets"  "package:methods"
# [10] "Autoloads"         "package:base"

请注意，我们在获取资源后将 attach()到新环境中，以便在搜索路径中的脚本环境之后附加dplyr 。

Answer 5

我不确定我的答案是否与上面给出的答案有所不同，但是我使用以下代码：

if (!exists('.env')) .env <- new.env() # creates an environment in which to store functions
if ('.env' %in% search()) detach(.env) # detaches .env if it already exists; does not "erase" functions previously stored in .env
func <- "filenameWhereSourceCodeIsStored"
source(paste0("C:/Users/JT/R/Functions/", func, ".R"), .env)
attach(.env)