如何在R语言定义函数时将变量值嵌入函数定义中？

要实现定义函数时把变量的当前值直接写入函数体，而不是保留变量名，可以通过手动替换函数体内的表达式来实现，以下是两种可行方法：

方法一：使用substitute() + as.function() #

variable <- 10
# 构造替换后的函数体，将variable替换为当前值
fn_body <- substitute(message(val * 2), list(val = variable))
# 将表达式转换为函数
fn <- as.function(list(), fn_body)

# 查看函数定义
fn
# 输出：function() {message(10*2)}

# 调用函数
fn() # 输出：20

方法二：使用bquote() + as.function() #

bquote()可以通过.()语法直接嵌入变量值，写法更简洁：

variable <- 10
# 生成包含变量值的函数体
fn_body <- bquote(message(.(variable) * 2))
# 转换为函数
fn <- as.function(list(), fn_body)

# 查看函数定义
fn
# 输出：function() {message(10*2)}

原理说明 #

R的函数默认采用词法作用域，函数定义时不会立即解析变量的具体值，而是在调用时才去查找变量的当前值。上述方法通过substitute()或bquote()生成已经替换了变量值的表达式，再用as.function()将这个表达式包装成函数对象，从而让函数体中直接显示变量的具体值。

注意：一旦函数定义完成，后续修改variable的值不会影响这个函数的行为，因为值已经固定在函数体里了。

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