r - 分解并替换省略号以获取参数名称

Question

如何获取函数调用中用于省略号的参数名称，无论它们是否打包到列表中？

如果将参数直接传递给函数，则以下函数工作得很好。

foo <- function(...) {
  sapply(substitute(...()), deparse)
}

a <- 1:3
b <- 2:6
foo(a, b)

result: "a" "b"

现在我将参数明确地打包到一个列表中，以使我的代码对管道更友好:

foo(list(a, b))

result: "list(a, b)"

函数 foo 也应该与它一起工作，只返回名称 a 和 b。如何在函数 foo 中处理这个问题？

非常感谢。

Answer 1

作为解决方法试试这个

foo <- function(...) {
    x <- substitute(...())
    if(class(x[[1]]) == "call")  sapply(x[[1]][-1] , deparse)
    else sapply(x , deparse)
}

• 输出

> foo(list(a, b))
[1] "a" "b"

> foo(a, b)
[1] "a" "b"