将 S4 基类实例复制到派生对象中

Question

我有两个简单的类：

.A1 <- setClass("A1", 
            representation=representation( x1 ="numeric"),
            prototype = prototype(x1 = 10))

.A2 <- setClass("A2", contains="A1",
           representation=representation(x2="numeric"),
           prototype = prototype(x2 = 10))

setMethod("initialize", "A2",
      function(.Object, ..., x2 = .Object@x2)
      {
        callNextMethod(.Object, ..., x2 = x2)
      })

使用此代码一切正常：

a1 <- .A1(x1 = 3)
initialize(a1)

a2 <- .A2(x1 = 2, x2 = 4)
initialize(a2, x2 = 3)

.A2(a1, x2 = 2)

An object of class "A2"  # WORKS!
Slot "x2":
[1] 2

Slot "x1":
[1] 3

特别是最后一行工作，所以 a1 被复制到“A2”对象中。这 问题是如果也为基类定义“初始化”，最后一行没有 不再工作了：

setMethod("initialize", "A1",
      function(.Object, ..., x1 = .Object@x1)
      {
        callNextMethod(.Object, ..., x1 = x1)
      })

## I have to redefine also this initializer, otherwise it will call
## the default initializer for "A1" (it was stored in some lookup table?)
setMethod("initialize", "A2",
      function(.Object, ..., x2 = .Object@x2)
      {
        # your class-specific initialization...passed to parent constructor
        callNextMethod(.Object, ..., x2 = x2)
      })

现在我明白了：

.A2(a1, x2 = 2)
An object of class "A2"  # BAD!
Slot "x2":
[1] 2

Slot "x1":
[1] 10

我猜我的“A1”初始化程序有问题，有什么想法吗？ 谢谢！

Answer 1

A1 初始化方法行为不正常，因为 x1 = .Object@x1 咨询 .Object，它对于构造函数是类的原型（对于您的示例 .A2(a1, x2=2)，在初始化中，A1 方法 .Object 是从原型构造的A2 的值，所以 x1 被赋值为 10，x1 = .Object@x1 = 10 覆盖了 a1 提供的值。

很难知道什么是通用解决方案。您可以测试缺失性

setMethod("initialize", "A1", function(.Object, ..., x1) {
    if (!missing(x1))
        callNextMethod(.Object, ..., x1=x1)
    else 
        callNextMethod(.Object, ...)
})

或者做一些聪明的事情，也许使用 match.call，以避免多个插槽的组合问题。

另一种方法似乎是实践中采用的方法，尽管它实际上只是回避了问题，是避免使用初始化方法，而是依赖单独的构造函数来进行任何数据按摩，如在此答案的Retaining copy construction 部分的第一个代码框。