R/12_S7_Themes.R

In egenn/rtemis: Machine Learning and Visualization

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

# Theme ----
#' Theme
#'
#' @field name Character: Name of theme.
#' @field parameters Named list of theme parameters.
#'
#' @author EDG
#' @noRd
Theme <- new_class(
  name = "Theme",
  properties = list(
    name = class_character,
    parameters = class_list
  )
) # /Theme

# Print Theme ----
#' Print Theme
#'
#' Print Theme object
#'
#' @param x Theme object.
#' @param ... Not used.
#'
#' @author EDG
#' @noRd
print.Theme <- function(x, ...) {
  objcat(paste(x@name, "Theme"))
  printls(props(x)[["parameters"]])
  invisible(x)
}
method(print, Theme) <- function(x, ...) {
  print.Theme(x)
} # /rtemis::print.Theme

# Make Theme@parameters `$`-accessible with autocomplete ----
method(`$`, Theme) <- function(x, name) {
  x@parameters[[name]]
} # /rtemis::Theme$
method(`.DollarNames`, Theme) <- function(x, pattern = "") {
  all_names <- names(x@parameters)
  grep(pattern, all_names, value = TRUE)
} # /rtemis::Theme.DollarNames

# Make Theme@parameters `[[`-accessible ----
method(`[[`, Theme) <- function(x, name) {
  x@parameters[[name]]
} # /rtemis::Theme[[]]

# Names Theme ----
#' Get names of Theme object
#'
#' @param x Theme object.
#'
#' @return Character vector of names of Theme object.
#'
#' @author EDG
#' @noRd
names.Theme <- function(x) {
  names(x@parameters)
} # /rtemis::names.Theme
method(names, Theme) <- function(x) {
  names.Theme(x)
} # /rtemis::names.Theme