Change legend

server.R

@@ -84,11 +84,15 @@ server <- function(input, output, session) {
           bringToFront = TRUE
         ),
       )
-      # Legende hinzufügen
+      pal_legend <- colorNumeric(
+        palette = "YlOrRd",
+        domain = heatmap_polygons$intensity
+      )# Legende hinzufügen
       addLegend(mapproxy, 
-                pal = pal, 
+                pal = pal_legend,
+                opacity = 0.8,
                 values = heatmap_polygons$intensity, 
-                title = paste("Intensität:", heatmap),
+                title = paste("Fallzahlen:", heatmap),
                 position = "bottomright",
                 layerId = "heatmap_legend" # Wichtig zum gezielten Entfernen
       )