decreasing = FALSE for the color scale

mhpob · Jul 2, 2024 · 211106b · 211106b
1 parent 309f480
commit 211106b
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/R/leaflet_graph.R b/R/leaflet_graph.R
@@ -28,14 +28,17 @@ leaflet_graph <- function(station_spatial) {
       fillOpacity = 0,
       breaks = 5,
       position = 'bottomright') |>
-    leaflet::addLegend(
+    leaflegend::addLegendNumeric(
       pal = numPal,
       title = 'Matched Detection',
-      shape = 'stadium',
       values = df$Detections,
       fillOpacity = .5,
-      decreasing = TRUE,
-      position = 'bottomright')
+      decreasing = FALSE,
+      orientation = 'horizontal',
+      shape = 'rect',
+      position = 'bottomright',
+      height = 20,
+      width = 100)