r - 从任何函数中提取函数参数和默认值

Question

有没有一种方法可以从之外的函数中提取任何给定函数的参数及其各自的默认值？

例如，给定:

myfunc <- function(a, b = 1) { print(c(a, b)) }

我正在寻找一些会返回的函数:

list(a = NULL, b = 1) 

或其一些变化。

Answer 1

您正在寻找formals()。

formals(myfunc)
# $a
#
#
# $b
# [1] 1

如果您需要 NULL作为 a，则可以进行一些检查。 a将属于“名称”类，并且为空。

lapply(formals(myfunc), function(x) if(is.name(x) & !nzchar(x)) NULL else x)
# $a
# NULL
#
# $b
# [1] 1