Question

这很疯狂，只是出于好奇心：我可以在R中运行一个函数，在函数完成后我可以获得函数执行时创建的所有变量吗？那么能够在返回之前查看函数吗？我不是说在调试模式下进入该功能。

Answer 1

我不确定这是不是你想要的，但可能很接近。您可以通过trace：

在现有函数中嵌入仲裁表达式

> trace(lm, exit = function().last_env <<- parent.frame())
Tracing function "lm" in package "stats"
[1] "lm"
> lm(y~x, data.frame(x=1:10, y=10:1))
Tracing lm(y ~ x, data.frame(x = 1:10, y = 10:1)) on exit 

Call:
lm(formula = y ~ x, data = data.frame(x = 1:10, y = 10:1))

Coefficients:
(Intercept)            x  
         11           -1  

> ls(.last_env)
 [1] "cl"          "contrasts"   "data"        "formula"     "m"           "method"      "mf"          "model"       "mt"          "na.action"   "offset"     
[12] "qr"          "ret.x"       "ret.y"       "singular.ok" "subset"      "w"           "weights"     "x"           "y"           "z"          
> get("cl", .last_env)
lm(formula = y ~ x, data = data.frame(x = 1:10, y = 10:1))

Answer 2

要将所有变量及其值作为列表获取，您可以使用此示例中函数的最后一行：

myFunction=function(){
  a="lolcat"
  b=data.frame(firstCol=1:3,secondCol=letters[1:3])
  d=list()
  d[["someName"]]=10:13
  sapply(ls(),function(x)get(x),simplify=F,USE.NAMES=T)
}

myResults=myFunction()

myResults

输出：

$a
[1] "lolcat"

$b
  firstCol secondCol
1        1         a
2        2         b
3        3         c

$d
$d$someName
[1] 10 11 12 13

Answer 3

这是你要找的东西吗？

> fjj <- function() { x <- 3; y <- 4; ls(environment())}
> fjj()
[1] "x" "y"

或许您可能需要一个列表，您可以“获得”每个组件。

R - 获取从函数调用创建的所有变量

3 个答案: