2013-06-19 13 views
8

Ecco una funzione ricorsiva bizzarra che ho scritto per aiutare a capire le relazioni tra sys.parent() e l'ambiente:funzioni nidificate, sys.parent e gli ambienti in R

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) 
} 

esecuzione della funzione dà

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! 

C'è un sacco di cose qui, ma terrò la mia domanda semplice: perché sys.parent() incrementa la prima volta da 1 (0-1) poi successivamente da 3 (ossia, 1 , 4, 7, 10 ...)?

+1

Si potrebbe trovare utile questo: https://github.com/hadley/devtools/wiki/Environments#function-environments – hadley

+0

anche qui: http://obeautifulcode.com/R/How- R-Ricerche-E-Reperti-Stuff / – zkurtz

risposta

8

Questo perché si chiama dive via eval. Il seguente esempio chiarirà:

> 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! 

Ecco la versione modificata, che incrementa di uno.

> 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! 
0
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!