如何在R语言中为闭包（closure）添加属性？

问题根源：R中闭包的类（class）是"function"，而非你以为的"closure"——typeof()返回"closure"是描述对象的底层类型，但S3方法派发是基于class()的结果，因此你定义的$.closure和$<-.closure不会被触发，自然被静默忽略。

以下是两种可行解决方案：

方案一：给目标闭包添加自定义类（推荐，不影响所有函数） #

这种方式只为特定闭包启用$访问器，避免干扰其他函数的默认行为：

1. 先写一个辅助函数，给闭包附加自定义类：

create_closure_with_accessor <- function(fun) {
  class(fun) <- c("closure_with_prop", class(fun))
  fun
}

2. 为自定义类实现$和$<-方法：

# 读取属性：从全局环境查找对应变量
`$.closure_with_prop` <- function(obj, prop) {
  var_name <- paste0(deparse(substitute(obj)), "_", prop)
  get(var_name, envir = .GlobalEnv)
}

# 设置属性：在全局环境创建/更新变量
`$<-.closure_with_prop` <- function(obj, prop, value) {
  var_name <- paste0(deparse(substitute(obj)), "_", prop)
  assign(var_name, value, envir = .GlobalEnv)
  # 必须返回原对象，符合R赋值操作的逻辑要求
  obj
}

3. 使用示例：

# 创建带访问器的闭包
aBlock <- create_closure_with_accessor(function() print("hello"))

# 给闭包设置属性
aBlock$value <- function() print("this is the value property")

# 调用属性
aBlock$value()  # 输出: [1] "this is the value property"

方案二：覆盖function类的$方法（影响所有函数，谨慎使用） #

如果要让所有闭包（即所有函数）都支持$访问器，可以直接针对function类实现方法：

`$.function` <- function(obj, prop) {
  var_name <- paste0(deparse(substitute(obj)), "_", prop)
  get(var_name, envir = .GlobalEnv)
}

`$<-.function` <- function(obj, prop, value) {
  var_name <- paste0(deparse(substitute(obj)), "_", prop)
  assign(var_name, value, envir = .GlobalEnv)
  obj
}

使用时无需额外处理函数类：

aBlock <- function() print("hello")
aBlock$value <- function() print("hello from value prop")
aBlock$value()  # 正常执行并输出内容

关键说明 #

• 拼接函数名与属性名作为全局变量名，是为了避免不同函数的同名属性在全局环境中互相覆盖。
• $<-方法必须返回原对象，这是R中S3赋值方法的强制要求，否则会导致赋值操作异常。

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