Question

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

用来解释：

R函数由三个元素组成：参数列表，正文和环境。我们可以用这三个元素以编程方式构建函数吗？

（在上面的r-devel链接的主题结尾处得到了一个相当全面的答案。我将让其他人重新开放各种解决方案本身的基准测试并提供它作为答案，但请确保如果你这样做，就引用哈德利。如果没有人在几个小时内加速，我会自己做。）

Answer 1

这是对讨论的扩展here。

我们的三件作品必须是一个参数列表，一个正文和一个环境。

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

我们真的不想要参数的常规旧列表，所以我们使用alist 它有一些不同的行为：

“...不评估值，允许使用没有值的标记参数”

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

对于正文，我们quote我们的表达式获得call：

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

最后，这似乎与我的第一种方法非常类似，除了我们使用一种不同的习惯用法来创建函数调用 substitute而不是call：

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

Answer 2

还存在以编程方式创建alist个对象的问题，因为当参数的数量可变时，这对于创建函数非常有用。

alist只是一个空符号的命名列表。可以使用substitute()创建这些空符号。所以：

make_alist <- function(args) {
  res <- replicate(length(args), substitute())
  names(res) <- args
  res
}

identical(make_alist(letters[1:2]), alist(a=, b=))
## [1] TRUE

Answer 3

rlang具有一个名为new_function的函数，用于执行此操作：

用法

new_function（args，body，env = caller_env（））

library(rlang)
g <- new_function(alist(x = ), quote(x + 3))
g
# function (x) 
# x + 3

Answer 4

我不确定这是否有帮助，但是下面的代码在某些情况下可能会有所帮助，

hello_world 可以是用于创建函数的字符串，而assign将用于命名函数 hello_world

hello_world <- "print('Hello World')"

assign("Hello",function()
  {
    eval(parse(text = hello_world))
  }, envir = .GlobalEnv)

这将创建一个名为hello_world的函数

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

4 个答案: