有没有一种方法可以在R中返回函数中定义的所有对象?以下是我试图做的一个小例子。我想要返回我在这个函数中分配值的所有内容(dave,mark,xx,z(如果存在))。打印语句是多余的。
通常情况下,我不会尝试这样做,只是我正在将一个已经source过的文件转换为函数,并且之前所有的对象都被引入到全局环境中,这就是我仍然需要的,我宁愿不在函数结尾创建一个巨大的对象列表。理想情况下,在运行函数后,所有对象都在全局环境中,并且可以从列表中访问。(自动去除列表并将其留作独立对象将是很好的。)也许这应该是一个类?
如果其中任何一个是NULL,例如,在函数定义参数中提供y为NULL(即test_func <- function(x = c(1,2),y = NULL)...),则会出现错误。
通常情况下,我不会尝试这样做,只是我正在将一个已经source过的文件转换为函数,并且之前所有的对象都被引入到全局环境中,这就是我仍然需要的,我宁愿不在函数结尾创建一个巨大的对象列表。理想情况下,在运行函数后,所有对象都在全局环境中,并且可以从列表中访问。(自动去除列表并将其留作独立对象将是很好的。)也许这应该是一个类?
如果其中任何一个是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软件包 (v0.3.0)在2020年03月03日创建的。
x <- test_func();
for (i in 1:length(x)) { assign(names(x[i]), x[[i]]) };
rm(x)
- undefined