将所有参数传递给另一个函数

Question

我希望能够将一个函数中的当前参数传递给另一个函数，而无需单独列出每个参数。这是一个稍微复杂一点的函数，它有大约 15 个参数，稍后可能会添加更多参数（它基于数据 API，稍后可能会添加更复杂的数据）：

f_nested <- function(a, b, ...) {
  c <- a + b
  return(c)
}

f_main <- function(a, b) {

  d <- do.call(f_nested, as.list(match.call(expand.dots = FALSE)[-1]))

  c <- 2 / d

  return(c)
}

f_main(2, 3)
#> [1] 0.4

sapply(2:4, function(x) f_main(x, 4))
#> Error in (function (a, b, ...) : object 'x' not found

^{由reprex package (v0.3.0) 于 2019 年 6 月 28 日创建}

第一次调用 f_main(2, 3) 会产生预期的结果。但是，当使用sapply 遍历值向量时，会出现找不到对象的错误。我怀疑我的 match.call() 使用不正确，我希望能够迭代我的函数。

Answer 1

我将借用 lm 对 match.call 的使用，将第一个元素替换为下一个函数。我认为一个关键是用parent.frame()调用eval，这样x就会被正确解析。

# no change
f_nested <- function(a, b, ...) {
  c <- a + b
  return(c)
}
# changed, using `eval` instead of `do.call`, reassigning the function name
f_main <- function(a, b) {
  thiscall <- match.call(expand.dots = TRUE)
  thiscall[[1]] <- as.name("f_nested")
  d <- eval(thiscall, envir = parent.frame())
  c <- 2 / d
  return(c)
}
sapply(2:4, function(x) f_main(x, 4))
# [1] 0.3333333 0.2857143 0.2500000

正如@MrFlick 所建议的，这可以稍微缩短：

f_main <- function(a, b) {
  thiscall <- match.call(expand.dots = TRUE)
  thiscall[[1]] <- as.name("f_nested")
  d <- eval.parent(thiscall)
  c <- 2 / d
  return(c)
}