r - R6 クラスに角括弧の処理方法を伝えるにはどうすればよいですか?

Question

属性として a を持つ R6 クラスがありますdata.table。次のように見えるとしましょう。

library(R6)
library(data.table)

foo <- R6Class(
  classname = 'foo',
  public = list(
    dt = NA,
    initialize = function(dt) {
      self$dt <- dt
    }
  )
)

set.seed(123)
dt <- data.table(col1 = rnorm(10), col2 = rnorm(10))

bar <- foo$new(dt)

私はそれを次のようにしたいと思います：

bar[<data.table stuff>]

これを行います：

bar$dt[<data.table stuff>]

出来ますか？