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

Question

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

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

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

我不知道如何在调用函数中评估...。在下一个示例中，我希望 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

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

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

Answer 2

这应该可行：

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")

Answer 3

一句话：不要。试图重新定义 R 的作用域规则只会导致心痛和痛苦。