r 替换为列表和评估

Question

如果我做这个例子

match_caller <- function(x) 1L
crazy_function <- function(x) substitute(match_caller(x),list(x=x))
crazy_function2 <- function(x) substitute(match_caller(x))

a <- 10L
crazy_function(a^2)
#> match_caller(100)
crazy_function2(a^2)
#> match_caller(a^2)

它似乎表明，通过使用列表代替 env 的替换，优点是它在替换之前评估变量。 总是这样吗？ 现在，如果我想在替换前进行评估，出于安全原因，我会使用force ，但这没有用吗？

谢谢

Answer 1

我认为已经有一些关于替代函数/懒惰评估以及如何使用替代的很好的答案。 我只想引用替代函数参考（可以追溯到 S 语言时代）：

参数

expr：任何语法上有效的 R 表达式
env：环境或列表对象。 默认为当前评估环境。

所以，是的，您可以使用列表，但这不是力的作用。

这是您调用它的方式，如本答案所示，它再次显示了如何替换值[1] 中的表达式：

substituteExpr <- function(expr, env) {
  do.call(substitute, list(expr=expr[[1]], env=env))
}
substituteExpr(a^2, list(x=2)) # 100

如果 expr 的值是一个表达式，则替换 env 中绑定的任何变量（它是值，而不是表达式）。

参考详情：

通过如下检查分析树的每个组件来进行替换：如果它不是 env 中的绑定符号，则它保持不变。 如果它是一个promise 对象，即函数的正式参数或使用delayedAssign() 显式创建，promise 的表达式槽将替换符号。 如果是普通变量，则替换其值，除非 env 是 .GlobalEnv 在这种情况下，符号保持不变。

引用和替换都是“特殊”的原始函数，它们不评估它们的参数。

值 结果的模式通常是“调用”，但原则上可以是任何类型。 特别是，单变量表达式具有“名称”模式，而常量具有适当的基模式。

注意替代在纯粹的词汇基础上起作用。 不能保证得到的表达式有任何意义。

当参数是 expression(...) 时，替换和引用通常会引起混淆。 结果是对表达式构造函数的调用，需要用 eval 求值以给出实际的表达式对象。