18

有没有办法让Rsource()中的脚本作为父级附加到全局环境（）？.GlobalEnv

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

在此处输入图像描述

4

5 回答 5

11

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

检查当前搜索路径：

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

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

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"

请注意，我们是在 sourcing之后attach()的新环境，因此在搜索路径中附加了我们的脚本环境。dplyr

于 2016-09-21T15:44:22.857 回答
8

将脚本作为一个包来获取脚本的最简单方法（即，在调用 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
于 2017-11-10T19:29:02.003 回答
8

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

sys.source[p]解析给定文件中的表达式，然后在指定的环境中连续计算它们。

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
于 2018-05-03T15:38:10.603 回答
5

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

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

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

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

或作为单行：

source('test.R', local=attach(NULL))
于 2016-09-21T15:50:35.530 回答
0

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

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)
于 2019-03-27T10:43:12.677 回答