如何申請報價的每一個參數的函數

Question

這是我想做什麼：

as.character(quote(x)) 
[1] "x" 

現在我想將它放在一個函數。

qq <- function(a) as.character(substitute(a)) 
qq(x) 
[1] "x" 

好。但是：

qq <- function(...) as.character(substitute(...)) 
qq(x,y,z) 
[1] "x" 

OK，怎麼樣：

qq <- function(...) sapply(..., function (x) as.character(substitute(x))) 
qq(x,y,z) 
Error in get(as.character(FUN), mode = "function", envir = envir) : 
object 'y' of mode 'function' was not found 

和：

qq <- function(...) sapply(list(...), function (x) as.character(substitute(x))) 
qq(x,y,z) 
Error in lapply(X = X, FUN = FUN, ...) : object 'z' not found 

有沒有辦法做到這一點？

Answer 1

試試這個：

qq <- function(...) sapply(substitute({ ... })[-1], deparse) 
qq(a, b, c) 
## [1] "a" "b" "c" 

注：qq(a)所以問題是，substitute期待一個參數，而不是幾個：qq <- function(...) as.character(substitute(...))如果傳遞了一個單一的argumet確實工作。 {...}將多個參數轉換爲一個。

Answer 2

你可以嘗試match.call

foo <- function(...) { 
    sapply(as.list(match.call())[-1], deparse) 
} 
foo(x, y, z) 
# [1] "x" "y" "z" 
foo(a, b, c, d, e) 
# [1] "a" "b" "c" "d" "e" 

如果有任何其他參數，您可能希望上述功能的一些變化。

foo2 <- function(x, ...) { 
    a <- as.list(match.call(expand.dots = FALSE))$... 
    sapply(a, deparse) 
} 
foo2(5, x, y, z) 
# [1] "x" "y" "z"