#1085 shiny app: manual fill colour for anomalous ranges

CityofToronto · Jan 9, 2025 · ee775d3 · ee775d3
1 parent 4609952
commit ee775d3
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/volumes/ecocounter/qc/qc_shiny_app.r b/volumes/ecocounter/qc/qc_shiny_app.r
@@ -456,7 +456,10 @@ server <- function(input, output, session) {
         y = max(limits$daily_volume),
         label = stringr::str_wrap(notes, 35),
         hjust = 0,
-        vjust = 1))
+        vjust = 1)),
+      scale_fill_manual(
+        values = c("#00BFC4", "#F8766D"),
+        limits = c("valid-caveat", "do-not-use"))
     )
     return(layers)
   })