在 R 中，如何在调用函数中评估 ... ？

Question

如果我想知道 R 函数中 ... 参数中存储的内容，我可以简单地将其转换为列表，就像这样

foo <- function(...)
{
  dots <- list(...)
  print(dots)
}

foo(x = 1, 2, "three")
#$x
#[1] 1
#
#[[2]]
#[1] 2
#
#[[3]]
#[1] "three"

我不知道如何评估 < code>... 在调用函数中。在下一个示例中，我希望 baz 的内容将 ... 参数返回给 bar。

bar <- function(...)
{
  baz()
}

baz <- function()
{ 
  # What should dots be assigned as?
  # I tried                                           
  # dots <- get("...", envir = parent.frame())
  # and variations of
  # dots <- eval(list(...), envir = parent.frame())
  print(dots)
}

bar(x = 1, 2, "three")

get("...", envir = Parent.frame()) 返回 <...>，看起来很有希望，但我不明白如何从中提取有用的东西。

eval(list(...), envir = Parent.frame()) 抛出错误，声称 ... 使用不正确。

如何从 bar 检索 ...？

Answer 1

一句话：不要。尝试重新定义 R 的范围规则很可能最终会带来心痛和痛苦。

Answer 2

想通了。我需要 eval 和 substitute 的组合。 baz 应定义为

baz <- function()
{ 
  dots <- eval(substitute(list(...), env = parent.frame()))
  print(dots)
}

Answer 3

这应该可行：

bar <- function(...)
{
  baz(...=...)
}

baz <- function(...)
{ 
  print(list(...))
}

bar(x = 1, 2, "three")

只需在子函数中分配它即可。

或者，您可以将省略号指定为父函数中的列表：

bar <- function(...)
{
  bar.x <- list(...)
  baz()
}

baz <- function()
{ 
  dots <- get("bar.x", envir = parent.frame())
  print(dots)
}

bar(x = 1, 2, "three")

这是相同的想法，但我不建议这样做，因为您要覆盖省略号：

bar <- function(...)
{
  ... <- list(...)
  baz()
}

baz <- function()
{ 
  dots <- get("...", envir = parent.frame())
  print(dots)
}

bar(x = 1, 2, "three")