如何从具有多个输出的功能分配？

Question

有没有办法输出例如2个物体没有使用list()？

my.fun=function(vector, index) 
     { 
     a=fun.a(vector, index) 
     b=fun.b(vector, index) 
     output=list(a,b) 
     } 

或者输出2个对象列表？考虑到我还可以有：

 c=fun.a(vector, index) 
     d=fun.b(vector, index) 

，并希望list(a,b)，另一个list(c,d)相同功能。

这只是我正在寻找的一个小例子，我的函数应用于大对象，并将它们导出为列表，但是我想导出也是中间值计算。一种选择是将所有列在同一个列表中，但我想知道是否还有其他解决方案。

Answer 1

我发现list2env非常适合你描述;最棘手的位，对我来说，是工作出什么给了env参数：

f=function(){ 
    list(a=1,b="my string") 
} 

ret=f() 
list2env(ret,env=environment()) 
#a=ret$a;b=ret$b #Same as previous line 

print(a);print(b) #1 and "my string" 

Answer 2

我相信你仅限于使用列表，但你可以将它们组合起来，如：

> list(list(a=1, b=2), list(c=3, d=4)) 
[[1]] 
[[1]]$a 
[1] 1 

[[1]]$b 
[1] 2 


[[2]] 
[[2]]$c 
[1] 3 

[[2]]$d 
[1] 4 

Answer 3

（）的返回对象必须是一件事......一个列表或向量。如果你想“推”东西进入全球（或其他环境），可以使用“< < - ”或类似的eval（...，ENVIR = .GlobalEnv）

Answer 4

你只能在return一个对象一个函数。但是你有其他的选择。您可以将中间对象分配给全局环境（您需要注意不要覆盖任何东西），或者可以将环境传递给您的函数并为其分配对象。

这里是后者的建议的例子：

fun <- function(x, env) { 
    env$x2 <- x^2 
    x^3 
} 
set.seed(21) 
x <- rnorm(10) 
myEnv <- new.env() 
fun(x, myEnv) 
# [1] 4.987021e-01 1.424421e-01 5.324742e+00 -2.054855e+00 1.061014e+01 
# [6] 8.125632e-02 -3.871369e+00 -8.171530e-01 2.559674e-04 -1.370917e-08 
myEnv$x2 
# [1] 6.288699e-01 2.727464e-01 3.049292e+00 1.616296e+00 4.828521e+00 
# [6] 1.876023e-01 2.465527e+00 8.740486e-01 4.031405e-03 5.728058e-06