darioappsilon

d <- Dog$new(name = "Milo", age = 4, number_of_legs = 4, hair_color = "black")
print(d)

darioappsilon

Animal <- R6Class(
  classname = "Animal",
  public = list(
    initialize = function(name = NA, age = NA, number_of_legs = NA) {
      private$name = name
      private$age = age
      private$number_of_legs = number_of_legs
    },
    make_sound = function(sound) {
      cat(private$name, " says ", sound, "\n", sep = "")

darioappsilon

d$dog_age()

darioappsilon

d$show()

darioappsilon

d <- Dog$new(name = "Milo", age = 4, hair_color = "black")

darioappsilon

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() {

darioappsilon

print(d$age)

darioappsilon

d <- Dog$new(name = "Milo", age = 4, hair_color = "black")
print(d)

darioappsilon

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(

darioappsilon

d$age = 5
print(d$age)