r - 如何在 R 中模拟 Lisp 的 let 函数？

Question

我正在尝试编写一个let允许我执行以下操作的函数：

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

目前我坚持

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

这根本不起作用。任何帮助表示赞赏。

Answer 1

这是一种方法：

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

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

编辑：或者，如果您不想命名要评估的表达式（即通过 via 传递它expr），并且如果您确定它将始终是最后一个参数，您可以执行类似这样的操作.

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