Add Polygons of geojson to map

IT Shiny App.R

@@ -2,9 +2,12 @@ library(rjson)
 library(shiny)
 library(bslib)
 library(leaflet)
+library(sf)
 
 
 crime_json <- fromJSON(file="C:\\Users\\milli\\Documents\\Datenbereinigung\\data.json")
+geojson_data <- st_read("C:\\Users\\milli\\Documents\\Datenbereinigung\\geojson.json")
+geojson_data <- st_transform(geojson_data, crs = 4326)
 bezirke <- names(crime_json)
 
 ui <- page_fillable(
@@ -49,10 +52,22 @@ server <- function(input, output, session){
   output$hhmap <- renderLeaflet({
     leaflet() %>%
       addProviderTiles(providers$CartoDB.Positron) %>%
+      addPolygons(
+        data = geojson_data,
+        color = "#7bb5ab",
+        fillColor = "#bdf0e7",
+        weight = 1,
+        fillOpacity = 0.05,      # Polygon fill transparency
+        highlightOptions = highlightOptions(
+          color = "#103b57",
+          weight = 4,
+          bringToFront = TRUE
+        ),
+      ) %>%
       setView(
         lng = 9.98716634776887,
         lat = 53.5488439196432,
-        zoom = 10
+        zoom = 11
       )
   })
 }