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
      self$bark()
    },
    bark = function() {
      cat(private$name, " says Woof!", sep = "")
    },
    show = function() {
      cat("Dog: \n")
      cat("\tName: ", private$name, "\n", sep = "")
      cat("\tAge: ", private$age, " or ", private$dog_age(), " in dog years\n", sep = "")
      cat("\tHair color: ", private$hair_color, "\n", sep = "")
    }
  ),
  private = list(
    name = NULL,
    age = NULL,
    hair_color = NULL,
    dog_age = function() {
      return(private$age * 7)
    }
  )
)