R从函数调用中获取参数名称

Question

我想从函数调用中获取参数名称：

testFun <- function(x = 1:20, z = list(a = 1, b = 2)) x %>% sin %>% sum

getArgNames <- function(value) {
  # function should return all arguments names - in this case c("x", "z")

}
arg.names <- getArgNames(testFun())

重要的是不要在获取参数名称之前评估函数。有什么想法吗？

Answer 1

我们可以使用formalArgs

formalArgs(testFun)
#[1] "x" "z"

如果我们需要将参数作为可执行函数传递

library(rlang)
getArgNames <- function(value) {
     v1 <- enquo(value)
     args <- formalArgs(get(gsub("[()]", "", quo_name(v1))))
     list(args, value)
     }

getArgNames(testFun())
#[[1]]
#[1] "x" "z"

#[[2]]
#[1] 0.9982219

Answer 2

使用@Akrun 建议的相同 formalArgs（以及几乎重复的）：

getArgNames <- function(value) formalArgs(deparse(substitute(value)[[1]]))

substitute(value) 引用输入，以防止立即评估，[[1]] 从解析的输入中检索函数，deparse 将其转换为 character（因为 formalArgs 可以将函数名取为 character).

getArgNames(testFun())

#[1] "x" "z"

R从函数调用中获取参数名称

R get argument names from function call

r

function

arguments

lazy-evaluation

evaluation