r - R中此功能的逻辑是什么？

我正在研究R函数中的参数，但是在理解它的逻辑时遇到了一些问题。

h <- function(a = 1, b = d){
    d <- (a + 1)^2
    c(a, b)
}

h()
# [1] 1 4

我希望错误消息会返回，因为没有b的值。
d是在h函数下创建的，但是没有像b = d这样的代码在函数b中为h分配值。

但是，结果是[1] 1 4。

b和d如何链接？

最佳答案

默认函数参数值在R中是惰性计算的（即仅在需要时才计算）：

有关示例，请参见此代码的输出：

printme <- function(name,x){cat('evaluating',name,'\n');x}

h <- function(a = printme('a',1), b = printme('b',d)){
  cat('computing d...\n')
  d <- (a + 1)^2
  cat('d computed\n')
  cat('concatenating a and b...\n')
  c(a, b)
  cat('a and b concatenated\n')
}

h()

控制台输出：

computing d...
evaluating a
d computed
concatenating a and b...
evaluating b
a and b concatenated

如您所见，d是在评估b的默认值之前计算的

编辑：

此外，正如@BrodieG在注释中正确指出的那样，默认参数在函数环境中求值；实际上，在上面的示例中，可以将b初始化为在函数环境中定义的变量d的值。

相反，当您指定一个参数（不使用默认值）时，仍会延迟计算分配该参数的表达式，但这一次是在调用环境中，例如：

# same functions as above, but this time we specify the parameters in the call
h(a=printme('a',123),b=printme('d',d))

控制台输出：

computing d...
evaluating a
d computed
concatenating a and b...
evaluating d
Error in printme("d", d) : object 'd' not found

请注意在评估参数b时的错误，因为在调用环境中找不到d。