match.call zwany w niewłaściwym środowisku kiedy eval'ing

Question

próbowałem realizuje funkcję let z następujących semantyki:

> let(x = 1, y = 2, x + y) 
[1] 3 

... co jest koncepcyjnie nieco podobny do substitute ze składni with.

Następujący kod prawie działa (powyższy wywołanie na przykład prace)

let <- function (...) { 
    args <- match.call(expand.dots = FALSE)$`...` 
    expr <- args[[length(args)]] 
    eval(expr, 
     list2env(lapply(args[-length(args)], eval), parent = parent.frame())) 
} 

Uwaga zagnieżdżony eval zewnętrzna ocenić faktycznej ekspresji i wewnętrznego do oceny argumentów.

Niestety, ta ostatnia ocena dzieje się w niewłaściwym kontekście. Staje się to oczywiste, gdy próbuje zadzwonić let z funkcją, która analizuje bieżącą klatkę, takich jak match.call:

> (function() let(x = match.call(), x))() 
Error in match.call() : 
    unable to find a closure from within which 'match.call' was called 

myślałem o dostarczanie ramki nadrzędnej jako środowiska oceniającego dla eval, ale to nie działa:

let <- function (...) { 
    args <- match.call(expand.dots = FALSE)$`...` 
    expr <- args[[length(args)]] 
    parent <- parent.frame() 
    eval(expr, 
     list2env(lapply(args[-length(args)], function(x) eval(x, parent)), 
        parent = parent) 
} 

Powoduje to ten sam błąd. Co prowadzi mnie do pytania: jak dokładnie oceniono match.call? Dlaczego to nie działa? I, jak to zrobić?

Answer 1

Czy to przepisanie rozwiąże problem?

let <- function (expr, ...) { 
    expr <- match.call(expand.dots = FALSE)$expr 
    given <- list(...) 
    eval(expr, list2env(given, parent = parent.frame())) 
} 

let(x = 1, y = 2, x + y) 
# [1] 3