Skip to contents

Results 2019

Michael Rustler

2025-06-04

Source: vignettes/results_2019.Rmd
results_2019.Rmd

Men

Men All 

men <- teamstaffel::get_results("M", year = 2019)
DT::datatable(men,
              rownames = FALSE)

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, "place_bwb", dplyr::everything()) 
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, "place_bwb", dplyr::everything()) 

DT::datatable(men_bwb,
              options = list(pageLength = 100),
              rownames = FALSE)

Women 

women <- teamstaffel::get_results("W", year = 2019)
DT::datatable(women)

)