1. Nauka
    2. /
  2. Kursy
    3. /
  3. Programowanie obiektowe z S3 i R6 w R
Connected

ćwiczenie

Kontrola mocy

Aktywnych powiązań można też używać do ustawiania prywatnych pól. W takim przypadku funkcja powiązania powinna przyjmować jeden argument o nazwie "value".

Szablon tworzenia aktywnego powiązania do odczytu i zapisu wygląda następująco.

thing_factory <- R6Class(
  "Thing",
  private = list(
    ..a_field = "a value"
  ),
  active = list(
    a_field = function(value) {
      if(missing(value)) {
        private$..a_field
      } else {
        assert_is_a_string(value) # lub inne sprawdzenie
        private$..a_field <- value
      }
    }
  )
)

Wartości przypisuje się tak, jakby powiązanie było zwykłą zmienną z danymi, a nie funkcją.

a_thing <- thing_factory$new()
a_thing$a_field <- "a new value" # nie a_thing$a_field("a new value")

Instrukcje

100 XP

Klasa kuchenki mikrofalowej została częściowo zdefiniowana.

  • Rozszerz definicję klasy kuchenki mikrofalowej o element listy active.
  • Dodaj aktywne powiązanie do elementu active, które będzie kontrolować poziom mocy.
    • Funkcja powinna nazywać się power_level_watts.
    • Powinna przyjmować jeden argument o nazwie value.
    • Prywatna zmienna do pobierania i ustawiania wartości nazywa się ..power_level_watts.
    • Użyj assert_is_a_number() (dokumentacja), aby sprawdzić, że value jest pojedynczą liczbą.
    • Użyj assert_all_are_in_closed_range() (dokumentacja), aby sprawdzić, że value mieści się w zakresie od 0 do ..power_rating_watts.
  • Utwórz obiekt kuchenki mikrofalowej i przypisz go do zmiennej a_microwave_oven.
  • Pobierz poziom mocy.
  • Spróbuj ustawić poziom mocy na wartość "400" jako ciąg znaków.
  • Spróbuj ustawić poziom mocy na 1600.
  • Ustaw poziom mocy na 400.