Make eval() verwenden Funktionsumgebung, anstatt globale Umgebung

Question

EDIT: Ich habe es versäumt, eine MWE mehr relevant zu meinem Anwendungsfall zu teilen.

Ich habe Probleme, eval() die richtige Umgebung zu verwenden.

> f = function(x) {eval.parent(parse(text = x))} 
> h = Vectorize(f, "x") 
> g = function() {a = 2; h("a")} 
> a = 1 
> h("a") 
a 
1 
> g() 
a 
1 

Oben, möchte ich g()2 zurückzukehren.

Übrigens: Ich lese Hadleys Kapitel environments und non-standard evaluation.

Answer 1

(Original Frage) Dadurch wird der Körper-Ausdruck aus f extrahieren und lokale bewerten zu g:

f = function(x) {eval(parse(text = x))} 
g = function() {a = 2; eval(body(f), envir = list(x="a"))} 

> g() 
[1] 2 

können auch versuchen, dieses:

> g = function() {a = 2; eval(call("f", a))} 
> g() 
[1] 2 

Zum downvoter: Es gilt höflich zu erklären, warum eine Antwort "nicht nützlich" ist. Es bleibt uns überlassen, welchen Aspekt (Korrektheit, Erwünschtheit oder ???) die Abstimmung ausgelöst haben könnte.

Nach dem Bearbeiten: Dies wird nun die gewünschte Ergebnis liefern wird und wahrscheinlich in einer weniger anstößigen Art und Weise an diejenigen, die strengen Codierung „Moral“ halten:

g = function() {a = 2; environment(h)$FUN(a)} 
g() 
#[1] 2 

Man kann die Namen herausziehen und Klassen die Einträge in der Vectorized-Funktion:

> ls.str(environment(h)) 
arg.names : chr "x" 
collisions : logi FALSE 
FUN : function (x) 
FUNV : function (x) 
SIMPLIFY : logi TRUE 
USE.NAMES : logi TRUE 
vectorize.args : chr "x"