在data.table中进行子集化时保留元数据

Question

我正在使用R中的data.table，其中包含提供数据时间戳的元数据（存储在“comment”属性中）。在对data.table进行子集化时，元数据将被删除。例如，

library(data.table)
dt <- data.table(x = c(1:5), y = c(6:10))
setattr(dt, 'comment', 'december 10, 2015')
comment(dt)                  # The metadata is present here...
# [1] "december 10, 2015"
comment(dt[x < 3])           # ...but not retained here
# NULL

另一方面，

data.frame没有表现出相同的行为。例如，

df <- data.frame(x = c(1:5), y = c(6:10))
comment(df) <- "december 2015"
comment(df)              # Metadata again is present
# [1] "december 2015"
comment(df[df$x < 3, ])  # Metadata is retained
# [1] "december 2015"

有没有人知道是否有办法data.table保留这些子集中的元数据？