R/retrieveFunctionArgumentNames.R

In neonira/wyz.code.offensiveProgramming: Wizardry Code Offensive Programming

Defines functions retrieveFunctionArgumentNames

Documented in retrieveFunctionArgumentNames

retrieveFunctionArgumentNames <- function(fun_f_1) {
  if (is.primitive(fun_f_1)) {
    a <- args(fun_f_1)
    if (is.null(a)) return('')
    formalArgs(a)
  } else formalArgs(fun_f_1)
}