R6 extension

gistfile1.r

Person <- R99Class("Person",
    public : {
      
      name = NA
      hair = NA
      
      # initialize
      initialize = function(name, hair) {
        if (!missing(name)) self$name <- name
        if (!missing(hair)) self$hair <- hair
        self$greet()
      }
      
      # methods...
      set_hair = function(val) {
        self$hair <- val
      }
      greet = function() {
        cat(paste0("Hello, my name is ", self$name, ".\n"))
      }
    },
    
    private : {
      
    }
)