记录'[.data.table‘]

Question

我有一个用户定义的对象，它有一个具有3个属性的类。

i.e. > class(data)
     [1] "cumulative" "data.table" "data.frame"

我希望对[进行重新编码，以便当我在对象上调用它时，它使用data.table定义的函数，即[.data.table，但返回我的用户定义的类。我该怎么做？

我尝试创建一个函数，如下所示，还有一些其他的变体，但我无法让它工作

'[.cumulative' <- function(x,i,j,...) {
  y <- NextMethod(.Generic)(x,i.j)
  class(y) <- .Class
}

Answer 1

这只虫子已在当前的开发版本1.9.3中得到修正。来自新闻

如果另一个类继承自data.table；例如，class(DT) == c("UserClass", "data.table", "data.frame")，那么DT[...]现在在结果中保留UserClass。感谢Daniel的报道，#5296 (git #64)。测试增加。

require(data.table) ## 1.9.2
dt = data.table(x=1:5, y=6:10)
setattr(dt, 'class', c("foo", "data.table", "data.frame"))
class(dt)
# [1] "foo"        "data.table" "data.frame"

## bug...
class(dt[, .N, by=x])
# [1] "data.table" "data.frame"

# -------------------------------

require(data.table) ## 1.9.3
dt = data.table(x=1:5, y=6:10)
setattr(dt, 'class', c("foo", "data.table", "data.frame"))
class(dt)
# [1] "foo"        "data.table" "data.frame"

## bug fixed
class(dt[, .N, by=x])
# [1] "foo"        "data.table" "data.frame"