Men BWB Only
is_bwb <- grepl(men$team, pattern = "Berliner\\s?Wasserbetriebe")
men_bwb <- men[is_bwb, ]
men_bwb$place_bwb <- seq_len(nrow(men_bwb))
men_bwb <- dplyr::select(men_bwb, .data$place_bwb, dplyr::everything())
#> Warning: Use of .data in tidyselect expressions was deprecated in tidyselect 1.2.0.
#> ℹ Please use `"place_bwb"` instead of `.data$place_bwb`
#> This warning is displayed once every 8 hours.
#> Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
#> generated.
is_kwb <- stringr::str_extract(men_bwb$team, pattern = "[1-9][0-9]?") %in% 86:87
men_bwb$place_kwb[is_kwb] <- seq_len(sum(is_kwb))
#> Warning: Unknown or uninitialised column: `place_kwb`.
men_bwb <- dplyr::select(men_bwb, .data$place_kwb, dplyr::everything())
#> Warning: Use of .data in tidyselect expressions was deprecated in tidyselect 1.2.0.
#> ℹ Please use `"place_kwb"` instead of `.data$place_kwb`
#> This warning is displayed once every 8 hours.
#> Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
#> generated.
DT::datatable(men_bwb,
options = list(pageLength = 100),
rownames = FALSE)