有没有办法返回 R 函数中定义的所有对象？

Question

有什么方法可以返回 R 函数中定义的所有对象？

这是我正在尝试做的一个小例子。我想返回我在这个函数中赋值的所有东西（dave、mark、xx、z（如果存在））。 print 语句是多余的。

通常我什至不会尝试这样做，只是我正在将sourced 文件转换为函数，而之前所有对象都来自全局环境，这是我仍然需要的，我'宁愿不在函数末尾创建一个包含所有对象的巨大列表。 理想情况下，运行函数后，所有对象都在全局环境中，并且可以从列表中访问。 （自动除名并将它们作为独立对象保留会很棒。）也许这应该是一个类？

如果其中任何一个是NULL，则会出错，例如，如果在函数定义参数中将y 提供为NULL（即test_func <- function(x = c(1, 2), y = NULL) ...）。

test_func <- function(x = c(1, 2), y = 3) {
  xx <- x * x
  if(!is.null(y)) z <- x * y
  mark <- "hello"
  dave <- data.frame(x = x, xx = xx)
  whatshere <- ls()
  print(whatshere)
  whatsout <- list()
  for (i in 1:length(whatshere)) {
    whatsout[[i]] <- get(whatshere[[i]])
  }
  names(whatsout) <- whatshere
  return(whatsout)
}
test_func()
#> [1] "dave" "mark" "x"    "xx"   "y"    "z"
#> $dave
#>   x xx
#> 1 1  1
#> 2 2  4
#> 
#> $mark
#> [1] "hello"
#> 
#> $x
#> [1] 1 2
#> 
#> $xx
#> [1] 1 4
#> 
#> $y
#> [1] 3
#> 
#> $z
#> [1] 3 6

^{由reprex package (v0.3.0) 于 2020 年 3 月 3 日创建}

Answer 1

有什么方法可以返回 R 函数中定义的所有对象？

从字面上看，有¹：

as.list(environment())

但是，我通常反对建议：明确，命名您要单独返回的所有对象：

list(
    foo = foo,
    bar = bar,
    …
)

---

¹ 这将包括参数，因为这些只是本地定义的值。要排除形式参数，请执行以下操作：

values = as.list(environment())
values[setdiff(names(values), names(formals()))]