ドアを閉める

R6 オブジェクトのメソッドは、private$ という接頭辞を使ってプライベートフィールドにアクセスできます。

thing_factory <- R6Class(
  "Thing",
  private = list(
    a_field = "a value",
    another_field = 123
  ),
  public = list(
    do_something = function(x, y, z) {
      # Access the private fields
      paste(
        private$a_field, 
        private$another_field
      )
    }
  )
)

電子レンジのファクトリーが一部定義されています。プライベートフィールド door_is_open と、パブリックメソッド open_door が追加されています。

電子レンジのドアを閉めるパブリックメソッド close_door() を追加してください。
- このメソッドは引数を取りません。
- 関数本体で、door_is_open フィールドを FALSE に設定してください。