R_working_research_scripts/R6_class_template.R

In daviddoret/GRCRToolkit: GRC Toolkit

# R6 class template

library(R6)

#' xxx
#'
#' blablabla
#'
#' @export
xxx <- R6Class("xxx",
                        public = list(
                          initialize = function(name, ...) {
                            self$name <- name
                          },
                          print = function(...) {
                            cat("Model factor (estim probas:", self$estim_probas,
                                ", estim quantiles:", self$estim_quantiles,
                                ", estim weights:", self$estim_weights,
                                ", dist:", self$dist,
                                "(", self$dist_fitted_params, ")",
                                " )\n",
                                sep = "")
                            invisible(self)
                          },
                          get_random = function(n, ...) {
                            stop("function was not initialized")
                          },
                          get_density = function(x, ...) {

                          }
                        ),
                        active = list(
                          dist = function(value,...) {
                            if(missing(value)) {
                              return(private$private_dist) }
                            else {
                              private$private_dist <- value }
                          },
                          dist_fitted_params = function(value, ...) {
                            if(missing(value)) return(private$private_dist_fitted_params)
                            else {
                              private$private_dist_fitted_params <- value
                            }
                          }
                        ),
                        private = list(
                          private_dist = NULL,
                          private_dist_fitted_params = NULL
                        )
)