从 R6 中的其他私有值创建私有值

Creating private values from other private values in R6

有没有什么方法可以使用私有值在 R6Class() 中创建另一个私有值?我遇到错误。

obj <- R6Class(
  "abc",
  private = list(
    a = 2,
    b = 2*private$a
  )
)

Error in all_named(private) : object 'private' not found

我也试过用b = 2 * a创建b,但还是不行。我该怎么办?

谢谢

obj <- R6Class(
   "abc",
  private = list(
    a = 2,
    b = function() 2*self$a
   )
)