From a7d3106a6b24b69d850fe8c081666cf01c7c45ca Mon Sep 17 00:00:00 2001 From: Millicool Date: Wed, 21 Jan 2026 10:28:07 +0100 Subject: [PATCH] Change legend --- server.R | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) 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 )