如何改写R6的ClassTwo类实现嵌套小对象修改同步至大对象？

以下是几种可行的改写方案，实现对大型对象内小型对象的同步修改：

方案1：返回原对象引用而非克隆 #

R6对象属于引用类型，如果get_class_one方法直接返回内部对象的引用而非克隆，对返回对象的修改会直接作用于ClassTwo内部的实例。

修改后的ClassTwo定义：

ClassTwo = R6::R6Class(
  "ClassTwo",
  
  public = list(
    class_one_element = list(),
    
    initialize = function() {
      self$class_one_element = ClassOne$new()
    },
    
    get_class_one = function() {
      # 移除clone()，直接返回原对象引用
      self$class_one_element
    }
  )
)

测试验证：

ct = ClassTwo$new()
ct_co = ct$get_class_one()
ct_co$set_element(2)
ct$class_one_element$element # 输出结果为2，实现同步修改

注意：此方式允许外部直接操作内部对象，可能带来意外副作用，需明确告知用户该行为逻辑。

方案2：在ClassTwo中添加代理修改方法 #

通过在大型类中封装对小型对象的修改逻辑，避免暴露内部对象，提升封装性和可控性。

修改后的ClassTwo定义：

ClassTwo = R6::R6Class(
  "ClassTwo",
  
  public = list(
    class_one_element = list(),
    
    initialize = function() {
      self$class_one_element = ClassOne$new()
    },
    
    # 代理方法：直接修改内部ClassOne对象的属性
    set_class_one_element = function(value) {
      self$class_one_element$set_element(value)
    },
    
    # 可选：添加获取属性的代理方法
    get_class_one_element = function() {
      self$class_one_element$element
    }
  )
)

使用方式：

ct = ClassTwo$new()
ct$set_class_one_element(2)
ct$get_class_one_element() # 输出结果为2

优点：完全由ClassTwo控制内部对象的修改逻辑，避免外部直接操作带来的风险。

方案3：使用R6活动绑定（Active Bindings） #

通过活动绑定封装内部对象的访问逻辑，既提供便捷的访问方式，又限制对内部对象的直接替换。

修改后的ClassTwo定义：

ClassTwo = R6::R6Class(
  "ClassTwo",
  
  public = list(
    initialize = function() {
      private$class_one_element = ClassOne$new()
    }
  ),
  private = list(
    # 将内部对象放在私有域，禁止直接访问
    class_one_element = NULL
  ),
  active = list(
    # 活动绑定：返回内部对象的引用，同时禁止直接赋值替换
    class_one = function(value) {
      if (!missing(value)) {
        stop("不允许直接替换class_one对象")
      }
      private$class_one_element
    }
  )
)

使用方式：

ct = ClassTwo$new()
ct$class_one$set_element(2)
ct$class_one$element # 输出结果为2

优点：兼顾访问便捷性和封装安全性，防止外部意外替换内部对象。

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