Wie emuliert Lisp die Let-Funktion in R?

Question

Ich versuche, eine let Funktion zu schreiben, die mir Dinge wie zu tun erlaubt:

let(a=2, b=3, a+b) 
>>> 5 

Derzeit stecken Ich bin mit

let <- function(..., expr) { 
    with(list(...), quote(expr)) 
} 

, die überhaupt nicht funktionieren. Jede Hilfe wird geschätzt.

Answer 1

Hier ist eine Möglichkeit:

let <- function(..., expr) { 
    expr <- substitute(expr) 
    dots <- list(...) 
    eval(expr, dots) 
} 

let(a = 2, b = 3, expr = a+b) 
# [1] 5 

bearbeiten: Alternativ, wenn Sie den Ausdruck werden bewertet (dh Leiten in über expr zu nennen) nicht haben wollen, und Wenn Sie sicher sind, dass es immer das letzte Argument sein wird, könnten Sie so etwas tun.

let <- function(...) { 
    args <- as.list(sys.call())[-1] 
    n <- length(args) 
    eval(args[[n]], args[-n]) 
} 

let(a = 2, b = 3, a + b) 
# [1] 5 

Answer 2

let <- function(a,b, expr=a+b){return(expr)} 
let(2,3) 
# [1] 5