R/colors_pdw.R

In phildwalker/pdwtheme: My Personal Theme

#' Function to extract pdw colors as hex codes
#' @description This function creates the output vector for the colors into hex codes
#' @param ... Character names of pdw_colors
#' @export
#'

# drsimonj corporate colors
# using https://drsimonj.svbtle.com/creating-corporate-colour-palettes-for-ggplot2 as template
# pdw_colors <- c(
#   `red`        = "#d11141",
#   `green`      = "#00b159",
#   `blue`       = "#00aedb",
#   `orange`     = "#f37735",
#   `yellow`     = "#ffc425",
#   `light grey` = "#cccccc",
#   `dark grey`  = "#8c8c8c")

# `fiji green` = "#6C6F1B",
# black = "#171409",
# juniper = "#7B9192",
# iron = "#C8C9C9",
# `falu red` = "#701E1E"

pdw_colors <- c(
  blue = "#18254f",
  orange = "#dc572e",
  `dark grey` = "#646464",
  yellow = "#ef762f")


pdw_cols <- function(...) {
  cols <- c(...)

  if (is.null(cols))
    return (pdw_colors)

  pdw_colors[cols]
}