Skip to contents

Results 2024

Michael Rustler

2025-06-04

Source: vignettes/results_2025.Rmd
results_2025.Rmd

Men

Men Starting Day 1 

men <- teamstaffel::get_results("M", 
                                year = 2025,
                                event = "ST1")

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 = "[0-9][0-9]?[0-9]?") %in% c(99:101,103)
men_bwb[["place_kwb"]][is_kwb] <- seq_len(sum(is_kwb))
men_bwb <- dplyr::select(men_bwb, "place_kwb", dplyr::everything()) 

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

Women Starting Day 1 

women <- teamstaffel::get_results("W", year = 2025, event = "ST1")
DT::datatable(women)

Women BWB Only 

is_bwb <- grepl(women$team, pattern = "Berliner\\s?Wasserbetriebe")
women_bwb <- women[is_bwb, ] 
women_bwb$place_bwb <- seq_len(nrow(women_bwb))
women_bwb <- dplyr::select(women_bwb, "place_bwb", dplyr::everything())

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