fixing historic colors for show_matrix

tbep-tech · Jul 1, 2022 · 8ab6fde · 8ab6fde
1 parent d67c016
commit 8ab6fde
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/show_matrix.R b/R/show_matrix.R
@@ -66,9 +66,9 @@ show_matrix <- function(epcdata, txtsz = 3, trgs = NULL, yrrng = NULL, bay_segme
       tidyr::gather('bay_segment', 'outcome', -yr) %>%
       dplyr::mutate(
         outcome = dplyr::case_when(
-          outcome == 'r' ~ '#CC3231',
-          outcome == 'g' ~ '#2DC938',
-          outcome == 'y' ~ '#E9C318'
+          outcome == 'g' ~ 'green',
+          outcome == 'r' ~ 'red',
+          outcome == 'y' ~ 'yellow'
         ),
         bay_segment = factor(bay_segment, levels = c('OTB', 'HB', 'MTB', 'LTB'))
       )