Comment émuler la fonction let de Lisp dans R?

Question

Je suis en train d'écrire une fonction let qui me permet de faire des choses comme:

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

Actuellement, je suis coincé avec

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

qui ne fonctionne pas du tout. Toute aide appréciée.

Answer 1

est ici une façon:

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

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

Modifier: Sinon, si vous ne voulez pas avoir de nommer l'expression-être à une évaluation (par exemple le transmettre via expr), et Si vous êtes certain que ce sera toujours le dernier argument, vous pouvez faire quelque chose comme ça.

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