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

Fix removal of polygons

Browse Source
This commit is contained in:
C0d3v
2025-12-15 17:09:54 +01:00
parent d48f8cfb25
commit 8a4d36c790
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
server.R
View File

@@ -40,6 +40,7 @@ server <- function(input, output, session) {
heatmap <- currently_selected_heatmap_crime() heatmap <- currently_selected_heatmap_crime()
mapproxy <- leafletProxy("hhmap") mapproxy <- leafletProxy("hhmap")
clearGroup(mapproxy, "selected") clearGroup(mapproxy, "selected")
clearGroup(mapproxy, "layer_heatmap")
if (heatmap != "") { if (heatmap != "") {
hideGroup(mapproxy, "layer_bezirke") hideGroup(mapproxy, "layer_bezirke")
hideGroup(mapproxy, "layer_stadtteile") hideGroup(mapproxy, "layer_stadtteile")
@@ -59,7 +60,7 @@ server <- function(input, output, session) {
) )
addPolygons(mapproxy, addPolygons(mapproxy,
data = heatmap_polygons, data = heatmap_polygons,
layerId = ~leaflet_id, layerId = paste("heat_", heatmap_polygons$leaflet_id, sep = ""),
group = "layer_heatmap", group = "layer_heatmap",
label = get_map_layer_name(heatmap_polygons$leaflet_id), label = get_map_layer_name(heatmap_polygons$leaflet_id),
color = "#003063", color = "#003063",
@@ -70,7 +71,7 @@ server <- function(input, output, session) {
#--------------------- #---------------------
} else { } else {
print("he") print("he")
clearGroup(mapproxy, "layer_heatmap") View(mapproxy)
if (maptype == "Bezirke"){ if (maptype == "Bezirke"){
hideGroup(mapproxy, "layer_stadtteile") hideGroup(mapproxy, "layer_stadtteile")
showGroup(mapproxy, "layer_bezirke") showGroup(mapproxy, "layer_bezirke")