R中这个函数的逻辑是什么？答案

【问题标题】：What is the logic of this function in R?R中这个函数的逻辑是什么？
【发布时间】：2019-07-01 07:13:31
【问题描述】：

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

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

h()
# [1] 1 4

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

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

b 和 d 是如何关联的？

【问题讨论】：

标签： r function variable-assignment

【解决方案1】：

默认函数参数值在 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 在 cmets 中正确指出的，默认参数在函数环境中进行评估；事实上，在上面的例子中，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。

【讨论】：

可能值得强调的是，默认参数是在它们所属函数的环境中评估的，而不是像非默认参数那样在调用环境中评估。