Simple R6 class in R

mathtools.R

require("R6")

MathTool <- 
  R6Class("MathTool",
          public = list(
            data = NULL,
            initialize = function(data = c()){
              self$data <- data
            },
            odds = function() {
              odds <- c()
              for(i in self$data) {
                if(i %% 2 == 1) {
                  odds <- c(odds, i)
                }
              }
            odds
            },
            evens = function() {
              evens <- c()
              for(i in self$data){
                if(i %% 2 == 0){
                  evens <- c(evens, i)
                  }
                }
                evens
              }
            )
          )

tool <- MathTool$new(data = 1:10)

tool$evens()
tool$odds()