如何显式调用R中函数参数的默认值？

Question

在不知道默认值的情况下，如何告诉R使用函数参数的默认值而不使用函数调用中的参数？

我知道我可以在rnorm()中使用mean的默认值

rnorm(n = 100) # by omitting the argument
# or
rnorm(n = 100, mean = 0) # by including it in the call with the default value

但是假设我不知道默认值，而是希望在函数调用中显式地包含它。我怎样才能做到这一点？

Answer 1

您可以通过以下方式访问参数列表和默认值：

> formals(rnorm)
$n


$mean
[1] 0

$sd
[1] 1

formals("rnorm")也能工作。一些简单的例子：

> rnorm(10,mean = formals(rnorm)$mean)
 [1] -0.5376897  0.4372421  0.3449424 -0.9569394 -1.1459726 -0.6109554  0.1907090  0.2991381 -0.2713715
[10] -1.4462570
> rnorm(10,mean = formals(rnorm)$mean + 3)
 [1] 2.701544 2.863189 1.709289 2.987687 2.848045 5.136735 2.559616 3.827967 3.079658 5.016970

显然，您也可以提前存储formals(rnorm)的结果。

Answer 2

正如@joran已经指出的那样，formals()公开了默认值。然而，正如我所理解的问题，你真正想要的是调用表达式的构造。为此，将formals()和as.call()结合起来产生调用本身是很有用的。下面的函数就是这样做的，它为给定的函数名f生成一个生成“参数完成调用”的函数

drop_missing <- function(sig) {
  sig[!sapply(sig, identical, quote(expr =))]
}

complete_call <- function(f) {
  nm <- as.name(f)
  sig <- formals(args(f))
  make_call <- function() {
    args <- match.call()[-1]
    sig[names(args)] <- args
    as.call(c(nm, drop_missing(sig)))
  }
  formals(make_call) <- sig
  make_call
}

示例用法：

complete_call("log")(1)
#> log(x = 1, base = exp(1))

complete_call("rnorm")(10)
#> rnorm(n = 10, mean = 0, sd = 1)

complete_call("rnorm")()
#> rnorm(mean = 0, sd = 1)

备注：

1)输出是语言对象。要执行调用，需要对其进行评估，例如，

eval(complete_call("rnorm")(10))
#> [1] -0.89428324 -1.78405483 -1.83972728 ... (output truncated)

2)如果您希望complete_call()接受一个函数，而不是函数的名称，您可以用nm <- as.name(deparse(substitute(f)))代替给定的赋值。但是，这在嵌套调用中不起作用，因为R的词法作用域规则使as.name("f")用于nm。

3)如果在分配args()时不调用sig，complete_call()只适用于闭包，因为原语函数和内建函数没有形式。