From 85a40b26ca80f6ffcc1947507e464314b1248126 Mon Sep 17 00:00:00 2001 From: Millicool Date: Wed, 7 Jan 2026 20:19:43 +0100 Subject: [PATCH] Allow map selection in heatmap mode --- server.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/server.R b/server.R index 48927ce..139f3f4 100644 --- a/server.R +++ b/server.R @@ -99,19 +99,19 @@ server <- function(input, output, session) { # The ID of the clicked polygon clicked_polygon_id <- click_event$id + clicked_polygon_id <- sub("^heat_", "", clicked_polygon_id) prefix <- get_map_layer_prefix(clicked_polygon_id) rest_of_name <- get_map_layer_name(clicked_polygon_id) - selected_polygon_data <- NULL if (prefix == "bez_") { currently_selected_bezirk(rest_of_name) currently_selected_stadtteil(paste("Bezirk", rest_of_name)) - selected_polygon_data <- geo_bezirke[geo_bezirke[["leaflet_id"]] == click_event$id,] + selected_polygon_data <- geo_bezirke[geo_bezirke[["leaflet_id"]] == clicked_polygon_id,] } if(prefix == "std_") { currently_selected_bezirk(get_bezirk_by_stadtteil(rest_of_name)) currently_selected_stadtteil(rest_of_name) - selected_polygon_data <- geo_stadtteile[geo_stadtteile[["leaflet_id"]] == click_event$id,] + selected_polygon_data <- geo_stadtteile[geo_stadtteile[["leaflet_id"]] == clicked_polygon_id,] } req(selected_polygon_data) #neues Polygon über die anderen legen, wenn ein bezirk angeklickt wurde