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

Question

如何告诉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

但是假设我不知道默认值，但是想在函数调用中明确包含它。我该如何实现？

- D Pinto

---

你想要这样做的具体原因是什么？ - bsg

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)的结果。

- joran

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遵循词法作用域规则，nm将得到as.name("f")。

3) 如果在给sig赋值时没有调用args()，complete_call()只能用于闭包，因为原始函数和内置函数没有形参。

- egnha