Zamknij drzwi

Metody obiektu R6 mogą uzyskiwać dostęp do jego prywatnych pól za pomocą prefiksu 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
      )
    }
  )
)

Fabryka kuchenki mikrofalowej została częściowo zdefiniowana. Zaktualizowano ją o prywatne pole door_is_open oraz publiczną metodę open_door.

Dodaj publiczną metodę o nazwie close_door(), która zamknie drzwi kuchenki mikrofalowej.
- Metoda nie powinna przyjmować żadnych argumentów.
- W ciele funkcji ustaw wartość pola door_is_open na FALSE.