r - 如何从列表转换为省略号？

Question

这个答案How to convert a list() to an ellipsis in R?不令人满意，因为它不适用于我的问题:

给定:

foo <- function(...) {
  length(list(...))
}

时间:

foo2 <- function(listArg) {
  # HERE convert from list to ...
  foo(...)
}

那么这些都应该相等:

foo() == foo2(list())
foo(1, 2) == foo2(list(1, 2))
foo(1, 2, 3) == foo2(list(1, 2, 3))

在 foo2 中写什么“# HERE convert from list to ...”

Answer 1

也许这可以回答您的问题:

foo <- function(...) length(list(...))
foo2 <- function(listArg) do.call(foo, listArg)

foo() == foo2(list())
# [1] TRUE
foo(1, 2) == foo2(list(1, 2))
# [1] TRUE
foo(1, 2, 3) == foo2(list(1, 2, 3))
# [1] TRUE

通过这种方式，我们不会将列表转换为省略号，而是通过在调用中进行转换来以不同的方式调用 foo。