Зачиніть дверцята

Методи об'єкта 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
      )
    }
  )
)

Ця вправа є частиною курсу

Об'єктно-орієнтоване програмування з S3 та R6 в R

Переглянути курс

Інструкції до вправи

Для вас частково визначено фабрику мікрохвильових печей. Її оновлено, додано приватне поле door_is_open та публічний метод open_door.

Додайте публічний метод close_door(), щоб зачиняти дверцята мікрохвильової печі.
- Метод не має приймати аргументів.
- У тілі функції встановіть для поля door_is_open значення FALSE.

Інтерактивна практична вправа

Спробуйте виконати цю вправу, доповнивши цей зразок коду.

# Add a close_door() method
microwave_oven_factory <- R6Class(
  "MicrowaveOven",
  private = list(
    power_rating_watts = 800,
    door_is_open = FALSE
  ),
  public = list(
    cook = function(time_seconds) {
      Sys.sleep(time_seconds)
      print("Your food is cooked!")
    },
    open_door = function() {
      private$door_is_open <- TRUE
    },
    ___ = ___
    
    
  )
)

Редагувати та запускати код