69 lines
2.6 KiB
R
69 lines
2.6 KiB
R
#' @title Function to extract REACH colors as hex codes
|
|
#'
|
|
#' @param ... Character names of reach colors. If NULL returns all colors
|
|
#' @param unnamed Should the output vector be unnamed? Default to `TRUE`
|
|
#'
|
|
#' @return An hex code or hex codes named or unnamed
|
|
#'
|
|
#' @details This function needs to be modified to add colors
|
|
#'
|
|
#' @export
|
|
cols_reach <- function(..., unnamed = TRUE) {
|
|
cols <- c(...)
|
|
|
|
colors_reach <- c(white = "#FFFFFF",
|
|
black = "#000000",
|
|
main_grey = "#58585A",
|
|
main_red = "#EE5859",
|
|
main_lt_grey = "#C7C8CA",
|
|
main_beige = "#D2CBB8",
|
|
iroise_1 = "#DFECEF",
|
|
iroise_2 = "#B1D7E0",
|
|
iroise_3 = "#699DA3",
|
|
iroise_4 = "#236A7A",
|
|
iroise_5 = "#0C3842",
|
|
red_main_1 = "#AE2829",
|
|
red_main_2 = "#D05E5F",
|
|
red_main_3 = "#DB9797",
|
|
red_main_4 = "#EBC7C8",
|
|
red_main_5 = "#FAF2F2",
|
|
red_alt_1 = "#792a2e",
|
|
red_alt_2 = "#c0474a",
|
|
red_alt_3 = "#ee5859",
|
|
red_alt_4 = "#f49695",
|
|
red_alt_5 = "#f8d6d6",
|
|
red_alt_na = "#f8f4f4",
|
|
lt_grey_1 = "#C6C6C6",
|
|
lt_grey_2 = "#818183",
|
|
grey3 = "#E3E3E3",
|
|
dk_grey = "#464647",
|
|
two_dots_1 = "#706441",
|
|
two_dots_2 = "#56b4e9",
|
|
two_dots_flashy_1 = "gold1",
|
|
two_dots_flashy_2 = "blue2",
|
|
three_dots_1 = "aquamarine2",
|
|
three_dots_2 = "cornflowerbluer",
|
|
three_dots_3 = "brown1",
|
|
orpink = "#f8aa9b",
|
|
pink = "#f5a6a7",
|
|
lt_pink = "#F9C6C7",
|
|
hot_pink = "#ef6d6f",
|
|
mddk_red = "#bf4749",
|
|
dk_red = "#782c2e",
|
|
orange = "#F69E61",
|
|
lt_green = "#B0CFAC",
|
|
green = "#84A181",
|
|
dk_green = "#526450")
|
|
|
|
if (is.null(cols)) {
|
|
cols_to_return <- colors_reach
|
|
} else {
|
|
cols_to_return <- colors_reach[cols]
|
|
}
|
|
|
|
if(unnamed){
|
|
cols_to_return <- unname(cols_to_return)
|
|
}
|
|
|
|
return(cols_to_return)
|
|
}
|