Inkonsistenz mit der globalen Umgebung von R in einem Funktionsaufruf

Question

Ich spielte mit R herum und bemerkte einige Inkonsistenzen mit der globalen Umgebung, die Funktionsaufrufe von der tatsächlichen globalen Umgebung unterscheidet.

Beachten Sie Folgendes:

> test = function() 
+ { 
+  print(environmentName(as.environment(-1))) 
+  print(ls(as.environment(-1))) 
+  print(environmentName(.GlobalEnv)) 
+  print(ls(.GlobalEnv)) 
+  as.environment(-1) 
+ } 
> foo = 1 
> ls() 
[1] "foo" "test" 
> test() 
[1] "" 
[1] "doTryCatch" "expr"  "handler" "name"  "parentenv" 
[1] "R_GlobalEnv" 
[1] "foo" "test" 
<environment: R_GlobalEnv> 

Innerhalb der Funktionsaufruf, as.environment(-1) gibt eine Umgebung, die es behauptet, ist <environment: R_GlobalEnv> aber wenn environmentName Aufruf auf Umwelt, sagte, sein Name ist ein leeres Zeichen. Darüber hinaus unterscheiden sich die Inhalte davon von denen in der echten globalen Umgebung. Was genau geht hier vor?

Ich bemerkte zuerst den Fehler mit mget innerhalb eines Aufrufs, da eine global definierte Variable nicht gefunden werden konnte. Dies scheint kontraintuitiv zu sein, da R normalerweise bei der Referenzierung einer Variablen innerhalb einer Funktion in den umgebenden Umgebungen nach oben sucht, bis eine Definition für eine Variable einschließlich der globalen Umgebung gefunden wird.

Answer 1

Dies ist eine Folge der verzögerten Auswertung:

test <- function() { 
    e <- as.environment(-1) 

    list(
    lazy = ls(as.environment(-1)), 
    eager = ls(envir = e) 
) 
} 

foo <- 1 
test() 
#> $lazy 
#> [1] "doTryCatch" "expr"  "handler" "name"  "parentenv" 
#> 
#> $eager 
#> [1] "foo" "test"