Change legend appearance

2026-01-21 10:27:21 +01:00
parent 12502c4208
commit 6ef042d072
1 changed files with 2 additions and 1 deletions
--- a/server.R
+++ b/server.R
@@ -67,7 +67,8 @@ server <- function(input, output, session) {
      pal <- colorNumeric(
        palette = "YlOrRd",
        domain = heatmap_polygons$intensity,
-        na.color = "transparent"
+        na.color = "transparent",
+        alpha = 1
      )
      addPolygons(mapproxy,
        data = heatmap_polygons,