From ee775d30d6dcae5151be6055124a183a8aa0e6bb Mon Sep 17 00:00:00 2001
From: Gabe Wolofsky <80077912+gabrielwol@users.noreply.github.com>
Date: Thu, 2 Jan 2025 15:06:17 -0500
Subject: [PATCH] #1085 shiny app: manual fill colour for anomalous ranges

---
 volumes/ecocounter/qc/qc_shiny_app.r | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/volumes/ecocounter/qc/qc_shiny_app.r b/volumes/ecocounter/qc/qc_shiny_app.r
index eacff81c2..d51e8dcb5 100644
--- 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)
   })