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

【问题标题】：How to explicitly call the default value of a function argument in R?如何在 R 中显式调用函数参数的默认值？
【发布时间】：2017-02-08 16:09:21
【问题描述】：

我如何告诉 R 使用函数参数的默认值而不 i) 省略函数调用中的参数和 ii) 不知道默认值是什么？

我知道我可以在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

但假设我不知道默认值，但想在函数调用中明确包含它。我怎样才能做到这一点？

【问题讨论】：

您是否有特定的原因要这样做？

标签： r

【解决方案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) 的结果。

【讨论】：

【解决方案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) 如果没有在 sig 的赋值中调用 args()，complete_call() 只能用于闭包，因为原始函数和内置函数没有形式。

【讨论】：