手动修改参考类实例的类定义

Question

我知道这将是一个非常不可靠的 hack。但出于纯粹的兴趣：

如果已实例化对象的引用类定义发生更改并且您希望它“获悉更新”（无需重新实例化），您需要手动更改引用类对象的 .refClassDef 字段它）。

毕竟，如果引入 其他 方法，它似乎确实有效，但对于 现有 方法的修改则不起作用（参见下面的示例）。

这个问题与我在post 中的回答有关。

---

示例

原始类定义：

MyReferenceClass <- setRefClass("MyReferenceClass",
    methods = list(
        print_hello = function(){
            print("hello")
        }
    )
)

实例化：

my_object <- MyReferenceClass$new()
my_object$print_hello()
[1] "hello"

更新类定义：

MyReferenceClass <- setRefClass("MyReferenceClass",
    methods = list(
        print_hello = function(){
            print("hello_again")
        },
        print_goodbye = function(){
            print("goodbye")
        }
    )
)

实例可以使用新方法：

my_object$print_goodbye()
[1] "goodbye"

但例如，它可能无法获知print_hello 的变化，正如post 所示。

Answer 1

在你的类中包含一个update 方法（修改前后）。在类有任何更新时调用另一个方法之前调用obj$update()。

MyReferenceClass <- setRefClass(
  "MyReferenceClass",
  methods = list(
    print_hello = function(){
      print("hello")
    },
    update = function(){
      selfEnv <- as.environment(.self)
      .class <- as.character(class(.self))
      for (e in as.vector(utils::lsf.str(selfEnv))){ 
        v <- get(e,eval(parse(text=sprintf("%s@generator$def@refMethods",.class))))
        assign(e,v,envir=selfEnv)
      }
    }
    )
  )

更新：6 月 11 日星期三update 方法现在要求更新方法向量，以避免意外更改内部方法。感谢@Rappster 指出这一点。

MyReferenceClass <- setRefClass(
  "MyReferenceClass",
  methods = list(
    print_hello = function(){
      print("hello")
    },
    update = function(x){
      selfEnv <- as.environment(.self)
      .class <- as.character(class(.self))
      for (e in x){
        v <- get(e,eval(parse(text=sprintf("%s@generator$def@refMethods",.class))))
        assign(e,v,envir=selfEnv)
      }
    }
    )
  )

obj <- MyReferenceClass$new()
obj$print_hello()

## ...
obj$update('print_hello')