R6类load方法内self赋值不生效 无法原地重载实例化对象问题

R6对象的底层本质是R环境，self是R6方法执行时自动注入的局部变量，仅在当前方法作用域内有效。
在load方法中写self <- object，本质是修改了方法内部局部变量self的绑定指向——让它从原来的实例环境，指向readRDS读取出来的新环境。这个修改完全不会影响方法外部的对象绑定：外部的new变量始终指向最开始创建的myClass实例环境，方法执行结束后内部的self局部变量会被销毁，自然不会更新外部对象。
之前用new <- new$load(tmpFile)能生效，本质是拿到了方法返回的加载后新环境，重新绑定给了new变量，并不是修改了原来的实例。

要实现原地加载+链式调用，核心是不要替换self的指向，而是把加载到的对象的所有成员，拷贝到当前self对应的实例环境中，保持外部变量的引用指向不变，同时所有方法统一返回invisible(self)支持链式调用。
修正后的完整实现如下：

# 基类定义
myClass <- R6::R6Class(
  classname = "myClass",
  public = list(
    save = function(path) {
      saveRDS(self, path)
      invisible(self)
    },
    load = function(path) {
      # 读取持久化存储的对象
      loaded_obj <- readRDS(path)
      
      # 解锁当前环境，允许修改成员
      if (environmentIsLocked(self)) {
        unlockBinding(".self", self)
        unlockBinding(".private", self)
      }
      
      # 拷贝所有公有方法、字段到当前实例
      public_members <- ls(loaded_obj, all.names = TRUE)
      for (member in public_members) {
        # 跳过R6内部保留的绑定
        if (member %in% c(".self", ".private")) next
        self[[member]] <- loaded_obj[[member]]
      }
      
      # 拷贝所有私有字段、方法到当前实例的私有环境
      current_private <- private
      loaded_private <- loaded_obj$.__enclos_env__$private
      private_members <- ls(loaded_private, all.names = TRUE)
      for (member in private_members) {
        current_private[[member]] <- loaded_private[[member]]
      }
      
      # 按需重新锁定环境
      lockEnvironment(self)
      invisible(self)
    }
  )
)

# 子类定义，所有需要链式调用的方法都返回invisible(self)
myChildClass <- R6::R6Class(
  classname = "myChildClass",
  inherit = myClass,
  lock_objects = FALSE,
  public = list(
    initialize = function(x) {
      private$x <- x
      invisible(self)
    },
    addOne = function() {
      private$x <- private$x + 1
      invisible(self)
    }
  ),
  private = list(x = NA_real_)
)

效果验证 #

# 实例化+链式调用方法+保存
tmp <- myChildClass$new(x = 10)$addOne()$addOne()
tmpFile <- tempfile()
tmp$save(tmpFile)

# 新建实例原地加载，不需要重新赋值
new <- myClass$new()
new$load(tmpFile)

# 验证：可以直接调用子类方法，私有字段值正确
new$addOne()
print(new)

执行后new会原地更新为myChildClass实例，私有字段x的值为13，完全符合预期，同时支持任意长度的链式调用，类似new$load(tmpFile)$addOne()$save(tmpFile2)的写法都可以正常运行。

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