[.
のメソッドを書きたいと思いReferenceClass
ます。これまでのところ、次のようなものがあります。
DT <- data.table(Index=1:5)
MySeries <- setRefClass("MySeries", fields = list(data="data.table"))
setMethod("[","MySeries",function(x, i,j,drop) {
ii <- substitute(i)
x$data <- x$data[eval(ii)]
return(x)
})
S <- MySeries(data=DT)
...しかし、最終的に呼び出すとエラーがスローされますS[Index>3]
。この期待される結果を得るために上記を修正する方法は?
Index
4: 4
5: 5