嵌套函数调用和省略号的同名参数

Question

让我们考虑以下情况：

foo <- function(param, ...)
{
  print(paste("foo:", param))
  bar(...)
}

bar <- function(param = NA) 
{
  print(paste("bar:", param))
}

问题：如何调用foo，让foo得到param = "foo"，bar得到param = "bar"？

答案是here，可以使用部分匹配：

foo(param = "foo", par = "bar")
[1] "foo: foo"
[1] "bar: bar"

但是如果不能使用部分匹配怎么办？例如，

• 将param重命名为p；
• 将另一个参数para_whatever添加到bar；
• 添加另一个与bar签名相同的函数层xyz；

并且该解决方案不再有效。可以做什么（当然不修改源）？

用三个嵌套调用和部分匹配失败来说明最后一个选项，

foo <- function(param, ...)
{
  print(paste("foo:", param))
  bar(...)
}

bar <- function(param = NA, ...) 
{
  print(paste("bar:", param))
  xyz(...)
}

xyz <- function(param = NA, para_whatever = NA)
{
  print(paste("xyz:", param))
}

我正在寻找可以产生的电话

[1] "foo: foo"
[1] "bar: bar"
[1] "xyz: xyz"

所描述的情况实际上发生在install.packages 中的Windows 下，将... 传递给.install.winbinary，调用download.file。这三个都有一个参数quiet。他们的来源可用here 和here。

编辑：为了澄清，我有以下用例。我想打电话给install.packages，它会传递以下参数：

1. quiet = FALSE 为 install.packages
2. quiet = FALSE 嵌套调用 .install.winbinary
3. quiet = TRUE 嵌套调用 download.file

Answer 1

我不太明白这个问题，但是既然你问了一个位置匹配的例子：

foo <- function(param, ...)
{
  print(paste("foo:", param))
  bar(..1)
}

bar <- function(param = NA) 
{
  print(paste("bar:", param))
}

foo(param = "foo", "bar", "baz")
#[1] "foo: foo"
#[1] "bar: bar"

编辑：如果一个参数通过省略号传递给两个不同的函数，则不能将不同的参数值传递给这些函数。您需要更改调用函数（例如，您可以使用trace）。