Millicool/shiny-app
1
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Allow map selection in heatmap mode

Browse Source
This commit is contained in:
Millicool
2026-01-07 20:19:43 +01:00
parent afe5f52bcc
commit 85a40b26ca
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
server.R
View File

@@ -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