Skip to contents

Results 2022

Michael Rustler

2025-06-04

Source: vignettes/results_2022.Rmd
results_2022.Rmd

Men

Men All 

men <- teamstaffel::get_results("M")
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% c(89,91)
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")
DT::datatable(women)

)