如何为继承的槽定义 S4 原型

我有一个基类（我们称之为“A”），其表示对于许多其他类来说是通用的。

因此我定义了其他类，例如“B”，来包含这个类。

我想设置这些其他类 (B) 的原型以包含从 A 继承的插槽的默认值。我认为这是很自然的：

setClass("A", representation(a="character"))
setClass("B", contains="A", prototype(a = "hello"))

但它会产生错误：

Error in representation[!slots] : object of type 'S4' is not subsettable

不知道为什么会发生这种情况。如果我省略原型我可以这样做：

setClass("B", contains="A")

然后破解我自己的生成器函数：

new_B <- function(...){ 
           obj <- new("B", ...)
           obj@a = "hello"
           obj
         }

然后根据原型创建我的对象new_B()，但是与使用通用生成器相比，这是非常粗糙和丑陋的new("B")并拥有我的原型......

补充我的评论而不是提供问题的新答案，这是一个解决方案，我们仍然按位置匹配参数（因为我们为 B 类指定了附加表示）：

.A <- setClass("A", representation(a="character"))
.B <- setClass("B", representation(b="numeric"),
     prototype(a="hello"),
     contains="A")

.A() and .B()替换呼叫new("A") and new("B")。在某种程度上，这是语法糖，但可以使对象构造更加透明

## construct an object using B's prototype, like new("B", b=1:3)
> .B(b=1:3)
An object of class "B"
Slot "b":
[1] 1 2 3

Slot "a":
[1] "hello"

## construct an object using A's prototype, like new("B", new("A"), b=1:3)
> .B(.A(), b=1:3)
An object of class "B"
Slot "b":
[1] 1 2 3

Slot "a":
character(0)

（第二个示例使用了以下事实：未命名参数new or B用于初始化继承的类）。

对于用户来说使用起来不太友好.A or .B直接，例如，因为签名只是...因此将被记录为“参见 A 类插槽的定义”。这破坏了接口和实现的分离，而这是 OOP 的优势。此外，最后一个代码块中的一个或另一个行为（.B(.A(a=a), b=b) or .B(a=a, b=b)）可能不是本意。因此，提供一个函数is暴露给用户，也许做一些初始数据按摩

A <- function(a=character(), ...) {
    ## nothing special, just a public constructor
    .A(a=a, ...)
}

B <- function(b, a="hello", ...) {
    a <- tolower(a)  ## no SHOUTing!
    .B(A(a=a), b=b)  ## A's public interface; no need for B to know A's details
}

函数 A 和 B 定义接口，向用户提供有关可接受参数的提示，而无需将构造函数与类定义联系起来，并执行初步数据处理。后者可以使initialize不必要的方法，这是一件好事，因为这些方法有一个复杂的合同 https://stackoverflow.com/questions/16247583/inheritance-in-r/16248773#16248773（他们应该初始化and是复制构造函数，正如我们在上面看到的，未命名参数应该初始化基类），但大多数人都错了。

大多数情况下，这些只是我的意见。