如何强制求值函数参数，绕开R语言中substitute()的形参捕获问题？

解决方案 #

核心原因是substitute会捕获函数调用时的实参表达式而非参数实际求值结果，你直接在自定义函数内部传foo时，fun捕获到的实参就是foo这个符号，和foo的实际取值无关。无需修改fun源码的前提下，有两种成熟的实现方案：

方案1：完全对齐原生fun的调用行为

如果你希望封装后的fun2和原生fun用法完全一致，既支持传入带引号的字符串，也支持传入裸符号返回符号名称：

fun2 <- function(foo) {
  # 先捕获fun2调用时传入的实参表达式
  input_arg <- substitute(foo)
  # 用do.call动态构造fun的调用
  do.call(fun, list(text = input_arg))
}

测试验证：

fun2("bar")
# 输出: [1] "bar"

fun2(bar)
# 输出: [1] "bar"

方案2：程序化传递变量值

如果你需要把程序生成的变量值传入fun，不需要支持裸符号传参：

fun2 <- function(foo) {
  do.call(fun, list(text = foo))
}

测试验证：

dynamic_val <- "dynamic_bar"
fun2(dynamic_val)
# 输出: [1] "dynamic_bar"

可选方案：基于bquote构造调用

你也可以通过bquote手动构造fun的调用表达式后再执行，效果和do.call一致：

fun2 <- function(foo) {
  eval(bquote(fun(text = .(substitute(foo)))))
}

内容的提问来源于stack exchange，提问作者smokee