verschachtelte Funktionen, sys.parent und Umgebungen in R

Question

Hier ist eine bizarre rekursive Funktion, die ich geschrieben habe, mir zu helfen, die Beziehungen zwischen sys.parent zu verstehen() und der Umwelt:

dive = function(level = 1, max.depth = 5) 
{ 
    m = match.call() 
    print(paste("sys.frame() says", format(sys.frame()))) 
    print(paste("sys.parent() says", sys.parent())) 
    print(paste("sys.frame(sys.parent()) says", format(sys.frame(sys.parent())))) 
    m[[2]] = m[[2]]+1 
    if(m[[2]] > max.depth) 
    stop("Not actually an error -- we're just tripping out!") 
    eval(m) 
} 

die Funktion Laufe gibt

dive(level = 1, max.depth = 5) 

[1] "sys.frame() says <environment: R_GlobalEnv>" 
[1] "sys.parent() says 0" 
[1] "sys.frame(sys.parent()) says <environment: R_GlobalEnv>" 
[1] "sys.frame() says <environment: R_GlobalEnv>" 
[1] "sys.parent() says 1" 
[1] "sys.frame(sys.parent()) says <environment: 0x2831dd0>" 
[1] "sys.frame() says <environment: R_GlobalEnv>" 
[1] "sys.parent() says 4" 
[1] "sys.frame(sys.parent()) says <environment: 0x3b1dff8>" 
[1] "sys.frame() says <environment: R_GlobalEnv>" 
[1] "sys.parent() says 7" 
[1] "sys.frame(sys.parent()) says <environment: 0x3b31c68>" 
[1] "sys.frame() says <environment: R_GlobalEnv>" 
[1] "sys.parent() says 10" 
[1] "sys.frame(sys.parent()) says <environment: 0x3c238c0>" 
Error in dive(level = 5, max.depth = 5) : 
    Not actually an error -- we're just tripping out! 

Es gibt viel los hier, aber ich werde meine Frage einfach halten: Warum um 1 (0 bis 1) anschließend durch 3 (dh zunächst nicht sys.parent() erhöhen 1 , 4, 7, 10 ...)?

Answer 1

Das ist, weil Sie dive über eval aufrufen. Das Beispiel wird im Folgenden deutlich machen:

> dive = function(level = 1, max.depth = 5) 
+ { 
+ m = match.call() 
+ print(sys.calls()) 
+ cat("======================\n\n") 
+ m[[2]] = m[[2]]+1 
+ if(m[[2]] > max.depth) 
+  stop("Not actually an error -- we're just tripping out!") 
+ eval(m) 
+ } 
> 
> dive(level = 1, max.depth = 3) 
[[1]] 
dive(level = 1, max.depth = 3) 

====================== 

[[1]] 
dive(level = 1, max.depth = 3) 

[[2]] 
eval(m) 

[[3]] 
eval(expr, envir, enclos) 

[[4]] 
dive(level = 2, max.depth = 3) 

====================== 

[[1]] 
dive(level = 1, max.depth = 3) 

[[2]] 
eval(m) 

[[3]] 
eval(expr, envir, enclos) 

[[4]] 
dive(level = 2, max.depth = 3) 

[[5]] 
eval(m) 

[[6]] 
eval(expr, envir, enclos) 

[[7]] 
dive(level = 3, max.depth = 3) 

====================== 

Error in dive(level = 3, max.depth = 3) : 
    Not actually an error -- we're just tripping out! 

Hier ist die modifizierte Version, die von einem erhöht.

> dive = function(level = 1, max.depth = 5) 
+ { 
+ print(sys.calls()) 
+ cat("======================\n\n") 
+ if(level+1 > max.depth) 
+  stop("Not actually an error -- we're just tripping out!") 
+ dive(level+1, max.depth) 
+ } 
> 
> dive(level = 1, max.depth = 3) 
[[1]] 
dive(level = 1, max.depth = 3) 

====================== 

[[1]] 
dive(level = 1, max.depth = 3) 

[[2]] 
dive(level + 1, max.depth) 

====================== 

[[1]] 
dive(level = 1, max.depth = 3) 

[[2]] 
dive(level + 1, max.depth) 

[[3]] 
dive(level + 1, max.depth) 

====================== 

Error in dive(level + 1, max.depth) : 
    Not actually an error -- we're just tripping out! 

Answer 2

1> dive = function(level = 1, max.depth = 5) 
1+ { 
1+ print(paste("sys.parent() says", sys.parent())) 
1+ if(level+1 > max.depth) 
1+  stop("Not actually an error -- we're just tripping out!") 
1+ dive(level+1, 5) 
1+ } 
1> dive(level = 1, max.depth = 5) 
[1] "sys.parent() says 0" 
[1] "sys.parent() says 1" 
[1] "sys.parent() says 2" 
[1] "sys.parent() says 3" 
[1] "sys.parent() says 4" 
Error in dive(level + 1, 5) : 
    Not actually an error -- we're just tripping out!