Question

V1 ：假设函数f(x, ...)和g(x , ...)可以传递不同的参数。如果我要使用它们来定义一个新函数，我可以通过明确定义的...运算符传递参数吗？举个简单的例子：

f1 = function(x, n = 1) x + n
g1 = function(x, m = 1) x + m
f  = function(x, ...) f1(x, ...)
g  = function(x, ...) g1(x, ...)

h = function(x, ...) {

  fgList = list()
  fgList[["f"]] = f(x, ...)
  fgList[["g"]] = g(x, ...)
  return(fgList)
}

h(1:4)
#  $f
#  [1] 2 3 4 5

#  $g
#  [1] 2 3 4 5

h(1:4, n = 2)
#  Error in g1(x, ...) : unused argument (n = 2)

参数n传递给函数f和g，但它只是为函数f定义良好。我想减轻这种情况。

V2：如果它们是我定义的功能，那么Hong Ooi的解决方案可以完美地运行。

这个解决方案是否可以扩展到没有...参数的预定义函数或等效，可以将...参数“添加”到没有一个的预定义函数？例如：

h = function(x, ...) mean(x, ...) * median (x, ...)
h(1:4, test = 1)
##  Error in median(x, ...) : unused argument (test = 1)

Answer 1

在一个环境中，您不能拥有多个版本的...。但是，您可以做的是为每个被调用的子函数提供一个...参数自己的。这意味着他们将忽略传递的任何与自己的正式参数不匹配的参数。

f1 = function(x, n = 1, ...) x + n
g1 = function(x, m = 1, ...) x + m

> h(1:4, n = 2)
$f
[1] 3 4 5 6

$g
[1] 2 3 4 5

编辑以回答添加的问题：您可以创建median的新版本，当您在自己的代码中调用它时，它将覆盖预定义的函数。（由于R命名空间如何工作，其他预定义函数仍将使用现有版本。）

median <- function(x, na.rm=FALSE, ...)
base::median(x, na.rm)  # function median exported from base package

R：如何使用...将参数传递给明确定义的多个函数？

1 个答案: