S4类:每个插槽有多个类型

Question

是否可以创建一个S4类，其中一个或多个插槽可以属于多个类？例如。假设您有这样一种情况，数据既可以是向量，也可以是data.frame。

exampleClass <- setClass("exampleClass",
    representation(raw=c("data.frame","numeric","character"),
    anotherSlot=c("data.frame","numeric")) 

或者，这是需要定义子类/超类的情况吗？

PS:搜索关于S4类的有用教程会产生有限的结果。如能链接到有关S4类创建/使用/文档的教程，我们将不胜感激。

Answer 1

R有“类联合”，因此

setOldClass("data.frame")
setClassUnion("data.frameORvector", c("data.frame", "vector"))

类data.frameORvector是虚的，因此不能实例化，但可以在其他插槽(representation=)中作为包含的类(contains=)使用，也可以用于分派

A = setClass("A", 
        representation=representation(x="data.frameORvector"))


> A(x=1:3)
An object of class "A"
Slot "x":
[1] 1 2 3

> A(x=data.frame(x=1:3, y=3:1))
An object of class "A"
Slot "x":
  x y
1 1 3
2 2 2
3 3 1

方法可能很难实现，因为您所知道的就是槽包含类联合的父类型之一。

setGeneric("hasa", function(object) standardGeneric("hasa"))
setMethod("hasa", "data.frameORvector", function(object) typeof(object@x))

> hasa(A(x=1:5))
[1] "integer"
> hasa(A(x=data.frame(y=1:5)))
[1] "list"

实际上，我发现有关?Classes、?Methods、?setClass和朋友的文档很有帮助。Hadley Wickham有一个tutorial (这个页面上的示例并不是很强大，它实例化了Person，而从概念上讲，人们会编写一个People来利用R的矢量化优势)，并且在最近的Bioconductor course中有一个部分。我认为这两个都不会详细介绍类工会。