r - ReferenceClass の [. メソッド

Question

[.のメソッドを書きたいと思い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