将对象导出到全局环境的便捷功能

Question

更新：我添加了a variant 从Roland's implementation 到kimisc package。

是否有将对象导出到全局环境的便捷函数，可以从函数中调用该函数以使对象全局可用？

我正在寻找类似的东西

export(obj.a, obj.b)

表现得像

assign("obj.a", obj.a, .GlobalEnv)
assign("obj.b", obj.b, .GlobalEnv)

基本原理

我知道<<- 和assign。我需要这个来重构旧代码，这只是脚本的串联：

input("script1.R")
input("script2.R")
input("script3.R")

script2.R 使用来自script1.R 的结果，而script3.R 可能使用来自1 和2 的结果。这会创建一个严重污染的命名空间，我想更改每个脚本

pollute <- the(namespace)
useful <- result

到

(function() {
pollute <- the(namespace)
useful <- result
export(useful)
})()

作为第一个廉价的对策。

Answer 1

只需编写一个包装器：

myexport <- function(...) {
  arg.list <- list(...)
  names <- all.names(match.call())[-1]
  for (i in seq_along(names)) assign(names[i],arg.list[[i]],.GlobalEnv)
}

fun <- function(a) {
  ttt <- a+1
  ttt2 <- a+2
  myexport(ttt,ttt2)
  return(a)
}

print(ttt)
#object not found error
fun(2)
#[1] 2
print(ttt)
#[1] 3
print(ttt2)
#[1] 4

没有经过彻底测试，也不确定这有多“安全”。

Answer 2

您可以创建一个环境变量并在导出函数中使用它。例如：

env <- .GlobalEnv      ## better here to create a new one :new.env()
exportx <- function(x)
{
  x <- x+1
  env$y <- x
}

exportx(3)
y
[1] 4

例如，如果你想在你的包中定义一个全局选项（模仿经典的 R 选项），

my.options <- new.env()
setOption1 <- function(value) my.options$Option1 <- value

编辑在 OP 澄清后：

你可以使用evalq，它有两个参数：

envir 评估 expr 的环境 在其中 R 查找未在环境中找到的对象。

这里是一个例子：

env.script1 <- new.env()
env.script2 <- new.env()
evalq({
  x <- 2
  p <- 3 
  z <- 5 
} ,envir = env.script1,enclos=.GlobalEnv)

evalq({
  h <- x +2
} ,envir = env.script2,enclos=myenv.script1)`

您可以看到所有变量都是在环境中创建的（如local）

 env.script2$h
[1] 4
env.script1$p
[1] 3
> env.script1$x
[1] 2

Answer 3

首先，鉴于您的用例，我看不出export 函数比使用好的（？）老式<<- 更好。你可以这样做

(function() {
    pollute <- the(namespace)
    useful <<- result
})()

这将给出与您的示例相同的结果。

其次，使用local 似乎比使用匿名函数更好，它允许您运行相关的计算，而不会在您的工作空间中乱扔各种临时对象。

local({
    pollute <- the(namespace)
    useful <<- result
})

---

ETA：如果出于某种原因避免修改名为useful 的现有变量很重要，请在此处输入exists。这同样适用于提出的其他解决方案。

local({
    .....
    useful <- result
    if(!exists("useful", globalenv())) useful <<- useful
})