函数工厂中的力评估

Question

我正在阅读 Hadley 的 Advanced R 并进入了这个示例：

boot_permute <- function(df, var) {
  n <- nrow(df)
  force(var)

  function() {
    col <- df[[var]]
    col[sample(n, replace = TRUE)]
  }
}

boot_mtcars1 <- boot_permute(mtcars, "mpg")
head(boot_mtcars1())
#> [1] 16.4 22.8 22.8 22.8 16.4 19.2
head(boot_mtcars1())
#> [1] 17.8 18.7 30.4 30.4 16.4 21.0

谁能解释我为什么他在var 上使用force 但对df 却没有这样做？我知道目的是强制评估变量，但不明白为什么他只为var 这样做。

Answer 1

nrow(df) 行将强制评估df。由于 var 在内部函数被实际评估之前不会被评估，var 将在闭包中保持未评估的承诺，直到该内部函数被实际执行。使用force(var) 强制评估该承诺。因此，如果您已经以某种方式使用了变量的值，则不需要显式的 force()。