R/ggplot_utils.R

In crosbya1/bam_org: What the Package Does (One Line, Title Case)

#' Official bamOrg Branches' Palettes
#'
#' ADD DESCRIPTION
#'
#' @param theme marketing or finance
#' @return a vector with hex codes
#' @export
official_palette <- function(theme = "marketing"){
  switch(theme,
    marketing = c("#7b59b1", "#ee6a5e", "#fcb064", "#4dafb2", "#aaaaaa"),
    finance = c("#a024d6", "#283758", "#e3e5db", "#7e9f3d", "#7b8279")
)}