match.call() 在子 function 中评估时返回..1

Question

我有两个功能

fn1 <- function(...) {
  fn2(...)
}

我有第二个 function

fn2 <- function(...) {
  match.call(expand.dots = FALSE)$...
}

用符号调用第一个 function 不会返回预期值

fn1(test)
# [[1]]
# ..1

我希望test返回（一个symbol ）。

Answer 1

我们可以使用substitute

fn2 <- function(...) {
     eval(substitute(alist(...) ))

   }
fn2(test)
#[[1]]
#test
fn1(test)
#[[1]]
#test