oop.R

Dog <- R6Class(
  classname = "Dog",
  public = list(
    initialize = function(name = NA, age = NA, hair_color = NA) {
      private$name = name
      private$age = age
      private$hair_color = hair_color
    }
  ),
  private = list(
    name = NULL,
    age = NULL,
    hair_color = NULL
  )
)