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()