In jonnylaw/jesmondjoggers: Jesmond Joggers Winter Handicap

knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE)
library(jjshandicap)
library(dplyr)
library(kableExtra)
library(lubridate)

all_results <- readr::read_rds("data/all_results.Rds")

# Get current handicaps from 5k PB
current_handicaps <- calculate_handicaps() %>%
  mutate(handicap = period_to_seconds(handicap_time)) %>%
  .$handicap

Handicap Dene

new_handicaps <- get_new_handicaps(all_results %>% 
                                     filter(handicap >= 20191, course == "jesmond dene"), min)

new_handicaps$new_handicap = seconds_to_period(new_handicaps$new_handicap)

# Display new handicaps by time
new_handicaps %>%
  knitr::kable(format = "html", booktabs = T, col.names = c("First", "Second", "Handicap")) %>% 
  kable_styling(latex_options = "striped")

Handicap Little Moor

new_handicaps <- get_new_handicaps(all_results %>% 
                                     filter(handicap >= 20191, course == "little moor"), min)

new_handicaps$new_handicap = seconds_to_period(new_handicaps$new_handicap)

# Display new handicaps by time
new_handicaps %>%
  knitr::kable(format = "html", booktabs = T, col.names = c("First", "Second", "Handicap")) %>% 
  kable_styling(latex_options = "striped")