xoopr / r62s3 Goto Github PK

#' R6 Class representing somethin
#'
#' A class representing a model.
MyClass <- R6::R6Class(
  classname = "MyClass",
  public = list(
    #' @field a something
    a = 1,

    #' @description
    #' prints
    hello_world = function() {
      cat("Hello!")
    },

    #' @description
    #' summarizes
    summary = function() {
      cat("Summary!", self$a)
    }
  )
)


#' Creates a new model
#'
#' @return a new model
#' @export
#'
#' @examples
#' a <- my_class()
my_class <- function() {
  MyClass$new()
}

# Exports public methods as S3 methods.
R62S3::R62S3(R6Class = MyClass, assignEnvir = topenv())

Restarting R session...

> devtools::load_all()
ℹ Loading testpackage
> a <- MyClass$new()
> a$hello_world()
Hello!
> hello_world.MyClass(a)
Hello!
> hello_world(a)
Error in UseMethod("hello_world", object) : 
  no applicable method for 'hello_world' applied to an object of class "c('MyClass', 'R6')"
> summary(a)
Error in object[[i]] : wrong arguments for subsetting an environment