Question

如何在没有i）省略函数调用中的参数和ii）不知道默认值是什么的情况下告诉R使用函数参数的默认值？

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

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()结合起来生成调用本身非常有用。以下函数通过生成一个产生＆＃34;参数完成调用的函数来实现这一点，＆＃34;对于给定的函数名称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()只适用于闭包，因为原始函数和内置函数不具有正式函数。

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

2 个答案: