match.call eval'ing

Question

我試過的功能實現let具有以下語義時叫錯環境：

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

...這是概念上有點類似substitute與with語法。

下面的代碼幾乎工作（例如上述調用作品）：

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

注嵌套eval，外來評價實際的表達和內評估的參數。

不幸的是，後一種評估發生在錯誤的背景下。這已成爲試圖調用let與檢查當前幀中的功能時，如match.call明顯：

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

我想提供父框架爲eval的評價環境中，但是，這並不工作：

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

這會產生相同的錯誤。這導致我的問題：match.call究竟如何評估？爲什麼這不起作用？而且，我該如何做這項工作？

Answer 1

這個重寫能解決你的問題嗎？

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