R/get_color.R

In RBesT: R Bayesian Evidence Synthesis Tools

# internal utilities to work with bayesplot -------------------------------
#' @keywords internal
get_color <- function(levels) {
  color_code <- sapply(levels, function(lev) {
    switch(lev, l = 1, lh = 2, m = 3, mh = 4, d = 5, dh = 6, lev)
  })
  unname(unlist(bayesplot::color_scheme_get())[color_code])
}