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

使用@Akrun建议的相同formalArgs（以及几乎重复的Get the argument names of an R function）：

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

substitute(value)引用输入，以防止立即评估，[[1]]从已解析的输入中检索函数，deparse将其转换为character（从formalArgs开始可以将函数名称设为character）。

getArgNames(testFun())

#[1] "x" "z"

Answer 2

我们可以使用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

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

2 个答案: