From 5700c61421322380a04a944cbd7c7a2f7d975c86 Mon Sep 17 00:00:00 2001
From: C0d3v <chococookiemedia@gmail.com>
Date: Sat, 7 Feb 2026 19:41:41 +0100
Subject: [PATCH] Move map zoom controls to top right

---
 global.R |  1 +
 server.R | 11 ++++++++---
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/global.R b/global.R
index 96153c3..1f9cb2c 100644
--- a/global.R
+++ b/global.R
@@ -11,6 +11,7 @@ library(ggplot2)
 library(ggthemes)
 library(stringr)
 library(plotly)
+library(htmlwidgets)
 
 #große JSON Datei lesen
 crime_json <- fromJSON(file="data.json")
diff --git a/server.R b/server.R
index bdb9c1b..21c1d72 100644
--- a/server.R
+++ b/server.R
@@ -170,7 +170,7 @@ server <- function(input, output, session) {
   #div() steht für division und sorgt für das Styling oder Layout von Inhalten, hier: die Inhalte "Bezirk:" und "Stadtteil:"
   #bez und req(bez) sowie sdt und req(sdt) (müsste es nicht auch std sein, so wie oben? Nur wegen der Einheitlichkeit und so) führen dazu, dass der richtige Bezirk bzw. Stadtteil, die angeklickt wurden, auch als Auswahl neben der Karte rechts auftauchen
   output$hhmap <- renderLeaflet({
-    leaflet() %>%
+      leaflet(options = leafletOptions(zoomControl = FALSE)) %>%
       addProviderTiles(providers$CartoDB.Positron) %>%
       addPolygons(
         data = geo_bezirke,
@@ -202,12 +202,17 @@ server <- function(input, output, session) {
           bringToFront = TRUE
         ),
       ) %>%
-      
       setView(
         lng = 9.98716634776887,
         lat = 53.5488439196432,
         zoom = 11
-      )
+      ) %>%
+      onRender(
+        "function(el, x) {
+          L.control.zoom({
+            position:'topright'
+          }).addTo(this);
+        }")
   })
   output$txt_map_selection_bezirk <- renderUI({
     bez <- currently_selected_bezirk()