diff --git a/server.R b/server.R index ef7ef56..d50af15 100644 --- a/server.R +++ b/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 )