使用替代品獲取參數名稱

Question

我試圖在函數內獲取全局環境中參數的名稱。我知道我可以使用替換來獲取命名參數的名稱，但我希望能夠對......參數做同樣的事情。我有點爲它的第一個元素工作......但無法弄清楚如何爲其餘的元素做到這一點。任何想法如何按預期工作。

foo <- function(a,...) 
{ 
    print(substitute(a)) 
    print(eval(enquote(substitute(...)))) 
    print(sapply(list(...),function(x) eval(enquote(substitute(x)),env=.GlobalEnv))) 
} 

x <- 1 
y <- 2 
z <- 3 
foo(x,y,z) 

x 
y 
[[1]] 
X[[1L]] 

[[2]] 
X[[2L]] 

Answer 1

的規範成語這裏是deparse(substitute(foo))，但...需要略有不同的處理。這裏是一個修改，你想要做什麼：

foo <- function(a, ...) { 
    arg <- deparse(substitute(a)) 
    dots <- substitute(list(...))[-1] 
    c(arg, sapply(dots, deparse)) 
} 

x <- 1 
y <- 2 
z <- 3 

> foo(x,y,z) 
[1] "x" "y" "z" 

Answer 2

我會

foo <- function(a, ...) { 
print(n <- sapply(as.list(substitute(list(...)))[-1L], deparse)) 
    n 
} 

然後

foo(x,y,z) 
# [1] "y" "z" 

---

相關問題去之前在計算器上： How to use R's ellipsis feature when writing your own function?值得一讀。

---

第二解決方案，使用match.call

foo <- function(a, ...) { 
    sapply(match.call(expand.dots=TRUE)[-1], deparse) 
}