R/slr_colors.R

In swehip/slrplotfun: Plot functions for the Swedish Arthroplasty Register

#' Colors used by the SLR color pallette
#'
#' @param n number of colors
#'
#' @return vector with color codes
#' @export
#'
#' @examples
#' slr_colors(2) # two colors (not yeallow and blue)
slr_colors <- function(n = NULL) {
  clrs <- c(
    yellow = "#FCC557",
    blue   = "#3E92AA",
    black  = "#000000",
    purple = "#8B599B",
    orange = "#D98736",
    green  = "#64B996",
    red    = "#C90327",
    pink   = "#DC95B2",
    grey   = "#CCCCCC"
  )

  choose <-
    if      (is.null(n) || n <= 1) c("blue")
    else if (n == 2)               c("yellow", "blue")
    else if (n == 3)               c("yellow", "blue", "black")
    else if (n == 4)               c("yellow", "green", "black", "blue")
    else if (n <= length(clrs))    seq_along(clrs)
    else stop("SLR does not have that many colors!")

  unname(clrs[choose])
}