r - 如何以编程方式创建 R 函数？

Question

Hadley Wickham最近在 r-devel mailing 上问了一个有趣的问题列表，并且无法在 StackOverflow 上找到有关该主题的现有问题，我认为它可能有用，因为它也存在于此处。

解释一下:

R 函数由三个元素组成:参数列表、函数体和环境。我们可以通过这三个元素以编程方式构造一个函数吗？

(在上面的 r-devel 链接的线程末尾给出了一个相当全面的答案。我将让其他人重新创建各种解决方案本身的基准测试并将其作为答案提供，但请确保如果你这样做的话，可以引用哈德利的话。如果几个小时内没有人站出来，我会自己做。)

Answer 1

这是讨论 here 的扩展。 .

我们的三部分需要是参数列表、主体和环境。

对于环境，我们默认使用env =parent.frame()。

我们并不真正想要一个常规的旧参数列表，因此我们使用alist它有一些不同的行为:

"...values are not evaluated, and tagged arguments with no value are allowed"

args <- alist(a = 1, b = 2)

对于正文，我们引用我们的表达式来获取调用:

body <- quote(a + b)

一种选择是将args转换为pairlist，然后简单地调用函数function使用eval:

make_function1 <- function(args, body, env = parent.frame()) {
      args <- as.pairlist(args)
      eval(call("function", args, body), env)
}

另一种选择是创建一个空函数，然后用所需的值填充它:

make_function2 <- function(args, body, env = parent.frame()) {
      f <- function() {}
      formals(f) <- args
      body(f) <- body
      environment(f) <- env

      f
}

第三种选择是简单地使用as.function:

make_function3 <- function(args, body, env = parent.frame()) {
      as.function(c(args, body), env)
}

最后，这对我来说似乎与第一种方法非常相似，除了我们使用稍微不同的习惯用法来创建函数调用，使用替代而不是调用:

make_function4 <- function(args, body, env = parent.frame()) {
      subs <- list(args = as.pairlist(args), body = body)
      eval(substitute(`function`(args, body), subs), env)
}


library(microbenchmark)
microbenchmark(
      make_function1(args, body),
      make_function2(args, body),
      make_function3(args, body),
      make_function4(args, body),
      function(a = 1, b = 2) a + b
    )

Unit: nanoseconds
                          expr   min      lq  median      uq    max
1 function(a = 1, b = 2) a + b   187   273.5   309.0   363.0    673
2   make_function1(args, body)  4123  4729.5  5236.0  5864.0  13449
3   make_function2(args, body) 50695 52296.0 53423.0 54782.5 147062
4   make_function3(args, body)  8427  8992.0  9618.5  9957.0  14857
5   make_function4(args, body)  5339  6089.5  6867.5  7301.5  55137