R/palettes-ohsu.R

In emilelatour/laviz: What the Package Does (One Line, Title Case)

#' @title OHSU corporate color palettes
#'
#' @description
#' OHSU brand colors and named palettes for visualization.
#'
#' @export
ohsu_palettes <- list(
  main  = c("#FFC939", "#5E97C9", "#585E60", "#57B147"),  # yellow, blue, gray, green
  full  = c("#FFC939", "#5E97C9", "#585E60", "#57B147", "#002776", "#ED6D23", "#ED1941", "#0E4D8F", "#C34D36"),
  cool  = c("#5E97C9", "#57B147", "#002776", "#0E4D8F"),
  hot   = c("#FFC939", "#ED6D23", "#ED1941", "#C34D36"),
  mixed = c("#5E97C9", "#57B147", "#FFC939", "#ED6D23", "#ED1941"),
  grey  = c("#585E60", "#5E97C9")
)

ohsu_colors <- c(
  `horizon yellow`     = "#FFC939",
  `marquam blue`       = "#5E97C9",
  `ohsu gray`          = "#585E60",
  `terwilliger green`  = "#57B147",
  `dark blue`          = "#002776",
  `orange`             = "#ED6D23",
  `pink red`           = "#ED1941",
  `cyan blue`          = "#0E4D8F",
  `red`                = "#C34D36"
)