R6 Class
library(R6)
Person <- R6Class("Person",
public = list(
name = NULL,
initialize = function (name = NA) { self$name <- name },
introduce = function () { print(paste0("My name is ", self$name, ".\n")) }
)
)
person <- Person$new(name = "John")
person$introduce()