R/13_S7_SuperConfig.R

In egenn/rtemis: Machine Learning and Visualization

# S7_SuperConfig.R
# ::rtemis::
# 2025 EDG rtemis.org

# References ----
# https://github.com/RConsortium/S7
# https://rconsortium.github.io/S7/

# SuperConfig ----
#' @title SuperConfig
#'
#' @description
#' Supervised Learning Configuration Class.
#'
#' @author EDG
#' @noRd
SuperConfig <- new_class(
  name = "SuperConfig",
  properties = list(
    dat_training = class_character,
    dat_validation = class_character,
    dat_test = class_character,
    algorithm = class_character,
    preprocessor = PreprocessorParameters | NULL,
    hyperparameters = Hyperparameters | NULL,
    tuner_parameters = TunerParameters | NULL,
    outer_resampling = ResamplerParameters | NULL,
    weights = class_character | NULL, # column name in dat_training
    question = class_character | NULL,
    outdir = class_character,
    verbosity = class_integer
  )
) # /rtemis::SuperConfig

# Print SuperConfig ----
#' Print SuperConfig
#'
#' Print SuperConfig object
#'
#' @param x SuperConfig object.
#' @param ... Not used.
#'
#' @author EDG
#' @noRd
print.SuperConfig <- function(x, ...) {
} # /rtemis::print.SuperConfig

method(print, SuperConfig) <- function(x, ...) {
  objcat("SuperConfig")
  printls(props(x))
  invisible(x)
} # /rtemis::print.SuperConfig