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