R/chrestos_palettes.R

In seb09/cccolr: Implementation of Chrestos colors

#' Chrestos color palettes
#' 
#' List with named color palettes based on the Chrestos colors
#' 
#' @param names should the color vectors be named (default = TRUE)
#' 
#' @return A named list with all color palettes (hex codes)
#' 
#' @examples
#' chrestos_palettes()
#' 
#' @export
#' 

chrestos_palettes <- function(names = TRUE){
  list(
    "main" = chrestos_colors("grey", "turq", "green", "purple", names = names),
    "minimal" = chrestos_colors("turq", "green", "purple", names = names),
    "full" = chrestos_colors("grey", "turq", "green", "purple", "orange", "yellow", names = names),
    "pairs" = chrestos_colors("grey", "grey", "turq", "turq", "green", "green", "purple", "purple",
                              "orange", "orange", "yellow", "yellow", shade = rep(c(0.5,0.75),6), names = names),
    "full_color" = chrestos_colors("turq", "green", "purple", "orange", "yellow", names = names),
    "pairs_color" = chrestos_colors("turq", "turq", "green", "green", "purple", "purple",
                                    "orange", "orange", "yellow", "yellow", shade = rep(c(0.5,0.75),5), names = names),
    "main2" = chrestos_colors("grey", "turq", "purple", "green", names = names),
    "minimal2" = chrestos_colors("turq", "purple", "green", names = names),
    "full2" = chrestos_colors("grey", "turq", "purple", "green", "orange", "yellow", names = names),
    "pairs2" = chrestos_colors("grey", "grey", "turq", "turq", "purple", "purple", "green", "green",
                               "orange", "orange", "yellow", "yellow", shade = rep(c(0.5,0.75),6), names = names),
    "full_color2" = chrestos_colors("turq", "purple", "green", "orange", "yellow", names = names),
    "pairs_color2" = chrestos_colors("turq", "turq", "purple", "purple", "green", "green",
                                     "orange", "orange", "yellow", "yellow", shade = rep(c(0.5,0.75),5), names = names),
    "traffic_light" = chrestos_colors("orange", "yellow", "green", names = names),
    "grad0" = chrestos_colors("purple", "green", names = names),
    "grad1" = chrestos_colors("yellow", "turq", names = names),
    "grad2" = chrestos_colors("orange", "grey", "green", shade = c(0.5, 0.97, 0.5), names = names),
    "grad3" = chrestos_colors("green", "grey", "purple", shade = c(0.5, 0.97, 0.5), names = names),
    "grad4" = chrestos_colors("turq", "grey", "purple", shade = c(0.5, 0.97, 0.5), names = names),
    "grad_turq" = chrestos_colors("turq", shade = c(0.8, 0.5, 0.2), names = names),
    "grad_green" = chrestos_colors("green", shade = c(0.8, 0.5, 0.2), names = names),
    "grad_purple" = chrestos_colors("purple", shade = c(0.8, 0.5, 0.2), names = names),
    "grad_orange" = chrestos_colors("orange", shade = c(0.8, 0.5, 0.2), names = names),
    "grad_yellow" = chrestos_colors("yellow", shade = c(0.8, 0.5, 0.2), names = names)
  )
}