r - 制作列表的子类

Question

我有以下代码

obj <- list(list(a=4,f=5,g=5),list(a=44,f=54,g=54))
class(obj) <- "mysubclass"

class(obj[1])
class(obj[2])
class(obj[1:2])
class(obj)

导致：

> class(obj[1])
[1] "list"
> class(obj[2])
[1] "list"
> class(obj[1:2])
[1] "list"
> class(obj)
[1] "mysubclass"

什么是不通过子集丢失课程的正确解决方案？例如，class(obj[1:2])结果mysubclass并仍然表现为一个列表。

Answer 1

问题是通用[方法正在剥离class属性。为避免这种情况，您可以定义自己的泛型 for mysubclass，即

## Answer suggested by Petr Matousu
## Based on simple.list method
'[.mysubclass' = function(x, i, ...) {
    structure(NextMethod("["), class = class(x))
 }

或者

'[.mysubclass' = function(x, i, j, ..., drop=TRUE) {
    ## Store the class attribute
    cl = class(x)
    ## Pass your object to the next method
    y = NextMethod('[')
    ## Update the class and return
    class(y) = cl
    y
}

您的示例现在按预期工作。你还应该看看：

• help('[')
• methods('[')