This is the homepage for the Jesmond Joggers Grand Prix, an annual race series running in the Winter from October to April each year.
knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning=FALSE) library(tidyverse) library(knitr) library(kableExtra) library(lubridate) theme_set(theme_minimal())
source("scripts/read_results.R")
last_handicap = max(all_results$handicap)
Here are the results from handicap r last_handicap
all_results %>% select(handicap, position, first_name, second_name, gross_time, running_time, handicap_time) %>% arrange(handicap, position) %>% filter(handicap == last_handicap) %>% mutate(gross_time = lubridate::seconds_to_period(gross_time), running_time = lubridate::seconds_to_period(running_time), handicap_time = lubridate::seconds_to_period(handicap_time)) %>% knitr::kable(format = "html", booktabs = T, col.names = c("Handicap", "Position", "First", "Seconds", "Race Time", "Running Time", "Handicap Time")) %>% kable_styling(latex_options = "striped")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.