diff --git a/global.R b/global.R index ccc034c..12abf5c 100644 --- a/global.R +++ b/global.R @@ -64,10 +64,9 @@ map_data_to_plot <- function(locations, crimes, year) { return(map_df(locations, function(loc) { bezirk <- "" stadtteil <- "" - if (substring(loc, 0, 6) == "Bezirk") { - bezirk <- substring(loc, 7) + if (substring(loc, 1, 6) == "Bezirk") { + bezirk <- substring(loc, 8, nchar(loc)) stadtteil <- loc - } else { bezirk <- get_bezirk_by_stadtteil(loc)