diff --git a/IT Shiny App.R b/IT Shiny App.R index f82d2ec..38ed84d 100644 --- a/IT Shiny App.R +++ b/IT Shiny App.R @@ -5,12 +5,12 @@ library(leaflet) library(sf) -crime_json <- fromJSON(file="C:\\Users\\milli\\Documents\\Datenbereinigung\\data.json") +crime_json <- fromJSON(file="data.json") -geo_bezirke <- st_read("C:\\Users\\milli\\Documents\\Datenbereinigung\\geobezirke-parsed.json") +geo_bezirke <- st_read("geobezirke-parsed.json") geo_bezirke <- st_transform(geo_bezirke, crs = 4326) -geo_stadtteile <- st_read("C:\\Users\\milli\\Documents\\Datenbereinigung\\geostadtteile-parsed.json") +geo_stadtteile <- st_read("geostadtteile-parsed.json") geo_stadtteile <- st_transform(geo_stadtteile, crs = 4326) bezirke <- names(crime_json)