使用 match.call 将所有参数传递给其他函数

Question

来自?match.call：

match.call 最常用于两种情况： […] 将大部分调用传递给另一个函数 […]

读完之后，我希望当我想将一个函数的所有参数传递给另一个函数而不一一列出这些参数时，我可以使用match.call。

示例：outer1 一个接一个地传递参数，outer2 使用 match.call。

outer1 <- function(a, b, c) {
  inner1(a, b, c)
}

inner1 <- function(a, b, c) { 
  return(a + b + c$first + c$second)
}

outer2 <- function(a, b, c) {
   mycall <- match.call()
   inner2(mycall)
}

inner2 <- function(call) {
   return(call$a + call$b + call$c$first + call$c$second)
}

outer1(1, 2, list(first = 3, second = 4)) # OK: 10
outer2(1, 2, list(first = 3, second = 4)) # OK: 10

第一个问题出现了，当-1而不是1被传递给outer2时：

outer2(-1, 2, list(first = 3, second = 4)) # Error in call$a + call$b : non-numeric argument to binary operator

问题1：传递-1而不是1有什么技术区别？我知道

typeof(quote(1)) # double
typeof(quote(-1)) # language

但我想我在第二种情况下传递了language 对象这一事实并不是（唯一）相关的区别，因为将某种类型的语言传递给参数c 有效（typeof(quote(list(first = 3, second = 4))) # language）。

为了克服上述问题，我尝试eval所有language类型的参数：

outer3 <- function(a, b, c) {

parsedCall <- lapply(match.call()[-1L], FUN=function(argument) {
    if(is.language(argument)) {
      return(eval(argument))
    } else {
      return(argument)
    }
  })

  inner3(parsedCall)
}

inner3 <- function(parsedCall) {  
  return(parsedCall$a + parsedCall$b + parsedCall$c$first + parsedCall$c$second)
}

outer3(-1, 2, list(first = 3, second = 4)) # OK: 8

问题 2：outer3 中的方法似乎“有效”，但我还需要考虑其他陷阱吗？ （我知道在某些情况下评估参数可能是不利的，但对我来说这不应该是一个问题。）

问题 3： 我想将所有参数传递给另一个函数的愿望并不少见。有没有比我做的更好/标准的方法？

问题 4： 将原始 call 传递给内部函数并在那里执行 eval 内容是否有利？如果我想将参数作为inner 函数中的局部变量（而不是parsedCall 列表的元素），这会有所帮助吗？然后，inner3 的主体可能与inner1 的主体相同（而在当前的解决方案中，我必须将a+b 替换为parsedCall$a + parsedCall$b）。

Answer 1

关于你的问题：

我想将所有参数传递给另一个函数的愿望是 并不少见。有没有比我更好/标准的方法 有吗？

那么我会说这是一种更常见的传递参数的方式：

inner1 <- function(a, b, c) { 
  return(a + b + c$first + c$second)
}

outer3 <- function(a, b, c) {
  mycall <- match.call()
  mycall[[1]] <- as.symbol("inner1") # use inner 1
  eval(mycall)
}

outer4 <- function(a, b, c) {
  .args <- as.list(match.call()[-1])
  do.call(inner1, .args)
}

outer3(-1, 2, list(first = 3, second = 4))
#R> [1] 8

outer4(-1, 2, list(first = 3, second = 4))
#R> [1] 8