如何创建返回包含原函数参数的函数？（R语言基础实现）

要实现让返回的函数显示时包含原参数的具体值，而非变量名，你可以通过substitute结合eval直接构造硬编码参数值的函数体，替代依赖闭包环境引用的方式。

方法一：直接构造并评估函数表达式 #

a <- function(value) {
  eval(substitute(
    function(x) x + val,
    list(val = value)
  ))
}

测试效果：

b <- a(3)
# 查看函数定义
b
#> function(x) x + 3
# 调用函数
b(2)
#> [1] 5

方法二：分步创建空函数并替换函数体 #

如果偏好分步操作，也可以先初始化空函数，再用substitute生成的表达式替换函数体：

a <- function(value) {
  # 构造替换后的函数体表达式
  func_body <- substitute(x + val, list(val = value))
  # 创建空函数模板
  new_func <- function(x) {}
  # 替换函数体
  body(new_func) <- func_body
  new_func
}

原理说明 #

你最初的代码是基于闭包实现的：返回的函数保留了外部函数a的运行环境，函数体里的value是对该环境变量的引用，因此查看函数时会显示变量名而非具体值。

而上述两种方法通过substitute将传入的value具体值直接替换到函数体表达式中，生成的函数不再依赖外部环境，函数体内是硬编码的具体数值，所以查看定义时会显示x + 3而非x + value，同时调用功能完全正常。

内容的提问来源于stack exchange，提问作者Maël