routeName <- function(nameVector) {
    temp <- stringr::str_extract(nameVector, "\\-.{1,4}\\-") #fk baseR
    gsub("\\-", "", temp) #weil regex schwer
}