R - Ocena zagnieżdżonej funkcji w środowisku

Question

Próbuję uruchomić fragment kodu R w trybie piaskownicy, ładując wszystkie niezbędne zależności (funkcje i dane) do nowego środowiska i oceniając wyrażenie w tym obszarze środowisko. Jednak mam problemy z funkcjami wywołującymi inne funkcje w środowisku. Oto prosty przykład:

jobenv <- new.env(parent=globalenv()) 
assign("f1", function(x) x*2, envir=jobenv) 
assign("f2", function(y) f1(y) + 1, envir=jobenv) 
expr <- quote(f2(3)) 

Korzystanie eval na expr nie od f2 nie może znaleźć f1

> eval(expr, envir=jobenv) 
Error in f2(3) : could not find function "f1" 

natomiast wyraźnie mocowania środowisko działa

> attach(jobenv) 
> eval(expr) 
[1] 7 

jestem prawdopodobnie brakuje czegoś oczywiste, ale nie mogłem znaleźć żadnej permutacji połączenia eval, które działa. Czy istnieje sposób na uzyskanie tego samego efektu bez dołączania do środowiska?

Answer 1

Istnieje szereg sposobów w ten sposób, ale trochę jak ten:

jobenv <- new.env(parent=globalenv()) 

local({ 
    f1 <- function(x) x*2 
    f2 <- function(y) f1(y) + 1 
}, envir=jobenv) 

## Check that it works 
ls(jobenv) 
# [1] "f1" "f2" 
local(f2(3), envir=jobenv) 
# [1] 7 
eval(quote(f2(3)), envir=jobenv) 
# [1] 7 

Answer 2

Zasięg jest definiowany, gdy funkcja jest tworzona, a nie po jej wywołaniu. Zobacz instrukcję section 10.7 of the Introduction to R.

Wydaje mi się to nieco dziwne, ale zachowujesz się tak samo, nawet jeśli unikasz razem assign i po prostu używasz $<-.

jobenv <- new.env(parent=globalenv()) 
jobenv$f1 <- function(x) x*2 
jobenv$f2 <- function(y) f1(y) + 1 
expr <- quote(f2(3)) 
eval(expr, envir=jobenv) 

To wydaje się być fakt, że środowisko zakrywające od f1 i f2 jest globalnym środowisku. Spodziewałbym się, że będzie to jobenv.

> environment(jobenv$f1) 
<environment: R_GlobalEnv> 
> environment(jobenv$f2) 
<environment: R_GlobalEnv> 

Jednym rozwiązaniem jest jawne ustawienie środowiska dla każdej funkcji ... ale musi istnieć łatwiejszy sposób.

> environment(jobenv$f1) <- jobenv 
> environment(jobenv$f2) <- jobenv 
> eval(expr, envir=jobenv) 
[1] 7