R/utility.R

In simmwill/coolors: Generate palettes from coolors.co

# coolors_history() helpers
.coolors_env <- new.env()

coolors_set <- function(var) {
  varname <- deparse(substitute(var))
  if (exists(varname, envir = parent.frame())) {
    assign(deparse(substitute(var)), var, envir = .coolors_env)}
  else {
    stop(paste(varname, "doesn't exist."))
  }
}

coolors_get <- function(var) {
  varname <- deparse(substitute(var))
  .coolors_env[[varname]]
}

coolors_hist <- list()
coolors_set(coolors_hist)