Millicool/shiny-app
1
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Fix quering Bezirk substring matching

Browse Source
This commit is contained in:
Millicool
2026-01-21 18:53:09 +01:00
parent b3c0f7a6b8
commit b67758b11b
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
global.R
View File

@@ -64,10 +64,9 @@ map_data_to_plot <- function(locations, crimes, year) {
return(map_df(locations, function(loc) { return(map_df(locations, function(loc) {
bezirk <- "" bezirk <- ""
stadtteil <- "" stadtteil <- ""
if (substring(loc, 0, 6) == "Bezirk") { if (substring(loc, 1, 6) == "Bezirk") {
bezirk <- substring(loc, 7) bezirk <- substring(loc, 8, nchar(loc))
stadtteil <- loc stadtteil <- loc
} }
else { else {
bezirk <- get_bezirk_by_stadtteil(loc) bezirk <- get_bezirk_by_stadtteil(loc)