使用 do.call 将函数参数传递给其他函数

Question

我想将对象met 向下传递给函数sf，但得到对象未找到错误。我认为这可能与顶层函数调用的环境有关，它没有传递给子函数：

f <- function(fname,x,met=c('sum','subs')){

  .env <- environment() ## identify the environment
  do.call(fname,list(x,met),envir=.env)

}

sf <- function(x,...){

  if (met== 'sum') x + 100 else x - 100

}

f('sf',1:10,met='sum')

Answer 1

如果met 没有作为sf 的参数显式传递，则不能在sf 的正文中通过名称引用met，所以试试这个：

sf <- function(x, met, ...) {
  if (met == 'sum') x + 100 else x - 100
}

如果我们假设met 是... 在对sf 的调用中的第一个组件（就像问题示例中的情况一样），那么这也可以：

sf <- function(x, ...) {
  met <- list(...)[[1]]
  if (met == 'sum') x + 100 else x - 100
}

这个更简洁的替代方案也有效：

sf <- function(x, ...) {
  met <- ...[[1]]
  if (met == 'sum') x + 100 else x - 100
}

这个替代方案更简洁：

sf <- function(x, ...) {
  met <- ..1
  if (met == 'sum') x + 100 else x - 100
}

我们在这里并不真正需要 env 参数到 do.call。

更新：更正。