visualizeR/R/cols_reach.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",
    red_less_4_1 = "#f6e3e3",
    red_less_4_2 = "#f3b5b6",
    red_less_4_3 = "#ee5a59",
    red_less_4_4 = "#9d393c",
    red_5_1 = "#f6e3e3",
    red_5_2 = "#f3b5b6",
    red_5_3 = "#ee5a59",
    red_5_4 = "#c0474a",
    red_5_5 = "#792a2e",
    red_less_7_1 = "#f8f4f4",
    red_less_7_2 = "#f8d6d6",
    red_less_7_3 = "#f49695",
    red_less_7_4 = "#ee5a59",
    red_less_7_5 = "#c0474a",
    red_less_7_6 = "#792a2e",
    red_less_7_7 = "#471119",
    green_2_1 = "#cce5c9",
    green_2_2 = "#55a065",
    green_3_1 = "#e6f2e0",
    green_3_2 = "#7ebf85",
    green_3_3 = "#2d8246",
    green_4_1 = "#e6f2e1",
    green_4_2 = "#b0d3ab",
    green_4_3 = "#4bab5e",
    green_4_4 = "#0c592e",
    green_5_1 = "#e6f2e1",
    green_5_2 = "#b0d3ab",
    green_5_3 = "#6bb26a",
    green_5_4 = "#229346",
    green_5_5 = "#0c592e",
    green_6_1 = "#e6f2e0",
    green_6_2 = "#b0d3ab",
    green_6_3 = "#75c376",
    green_6_4 = "#086d38",
    green_6_5 = "#0c592e",
    green_6_6 = "#0d4420",
    green_7_1 = "#fafafa",
    green_7_2 = "#e6f2e0",
    green_7_3 = "#b0d3ab",
    green_7_4 = "#75c376",
    green_7_5 = "#40ab5d",
    green_7_6 = "#086d38",
    green_7_7 = "#0d4420",
    artichoke_2_1 = "#b6c8b1",
    artichoke_2_2 = "#53755f",
    artichoke_3_1 = "#e4f1db",
    artichoke_3_2 = "#89a087",
    artichoke_3_3 = "#455843",
    artichoke_4_1 = "#e4f1db",
    artichoke_4_2 = "#b5ceb2",
    artichoke_4_3 = "#89a087",
    artichoke_4_4 = "#465944",
    artichoke_5_1 = "#e4f1db",
    artichoke_5_2 = "#b5ceb2",
    artichoke_5_3 = "#89a087",
    artichoke_5_4 = "#60755f",
    artichoke_5_5 = "#465944",
    artichoke_6_1 = "#fafafa",
    artichoke_6_2 = "#e4f1db",
    artichoke_6_3 = "#b5ceb2",
    artichoke_6_4 = "#89a087",
    artichoke_6_5 = "#60755f",
    artichoke_6_6 = "#455843",
    artichoke_7_1 = "#fafafa",
    artichoke_7_2 = "#e4f1db",
    artichoke_7_3 = "#b5ceb2",
    artichoke_7_4 = "#9fb89c",
    artichoke_7_5 = "#89a087",
    artichoke_7_6 = "#60755f",
    artichoke_7_7 = "#455843",
    blue_2_1 = "#7cb6c4",
    blue_2_2 = "#286877 ",
    blue_3_1 = "#b9d7de",
    blue_3_2 = "#5ca4b4",
    blue_3_3 = "#286877",
    blue_4_1 = "#dfecef",
    blue_4_2 = "#8fc1cc",
    blue_4_3 = "#3f96aa",
    blue_4_4 = "#286877",
    blue_5_1 = "#dfecef",
    blue_5_2 = "#8fc1cc",
    blue_5_3 = "#3f96aa",
    blue_5_4 = "#256a7a",
    blue_5_5 = "#0c3842",
    blue_6_1 = "#f4fbfe",
    blue_6_2 = "#cfe4e9",
    blue_6_3 = "#77b2bf",
    blue_6_4 = "#4096aa",
    blue_6_5 = "#256a7a",
    blue_6_6 = "#0c3842",
    blue_7_1 = "#f4fbfe",
    blue_7_2 = "#b3d5de",
    blue_7_3 = "#77b2bf",
    blue_7_4 = "#4096aa",
    blue_7_5 = "#27768a",
    blue_7_6 = "#0c596b",
    blue_7_7 = "#0c3842"
  )

  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)
}