Add all colors necessary for REACH color palettes

R/cols_reach.R

@@ -11,7 +11,8 @@
 cols_reach <- function(..., unnamed = TRUE) {
   cols <- c(...)
 
-  colors_reach <- c(white        = "#FFFFFF",
+  colors_reach <- c(
+    white = "#FFFFFF",
     black = "#000000",
     main_grey = "#58585A",
     main_red = "#EE5859",
@@ -53,7 +54,105 @@ cols_reach <- function(..., unnamed = TRUE) {
     orange = "#F69E61",
     lt_green = "#B0CFAC",
     green = "#84A181",
-                    dk_green     = "#526450")
+    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