Program.Rmd

# (PART\*) PROGRAMME {-}

# Programme {.unnumbered}

```{r, echo=FALSE, warning=FALSE, message=FALSE}

library(tidyverse)
library(readxl)
library(kableExtra)
library(downloadthis)

opts <- options(knitr.kable.NA = "")


prog <- read_xlsx("./ForHer22_PROGRAM.xlsx") %>%
  select(-7) %>%
  mutate(event = if_else(str_detect(event, "S1-|S2-|S3-|S4-|S5-|S6-|S7-|S8-"),
                         paste0("[", event, "](#", tolower(event), ")"),
                         event)) %>% 
  select(-session)

```

## Monday: 18 April 2022 {.unnumbered}


```{r, echo=FALSE}
prog %>% 
  filter(!is.na(day)) %>%
  filter(day == "Monday 18/4") %>% 
  select(-day) %>% 
  kbl() %>%
  kable_paper("hover", full_width = T) %>%
  column_spec(column = c(1,2), width = "100px") %>% 
  row_spec(row = 1, background = "#D6EAF8") %>% 
  row_spec(0, color = "#FFFFFF00")

```


## Tuesday: 19 April 2022 {.unnumbered}

```{r, echo=FALSE}

prog %>%
  filter(!is.na(day)) %>%
  filter(day == "Tuesday 19/4") %>%
  select(-day) %>%
  kbl() %>%
  kable_paper("hover", full_width = T) %>%
  column_spec(column = c(1,2), width = "100px") %>%
  row_spec(row = c(1:6, 12, 20:21, 29, 36, 42:43, 47:48), background = "#D6EAF8") %>%
  row_spec(row = c(13:18, 37:40), background = "#F2F2F2") %>% 
  row_spec(row = c(19, 28, 41), background = "#EDBB99") %>% # coffee & lunch
  row_spec(0, color = "#FFFFFF00") %>%
  row_spec(c(5, 20, 29, 42), bold = T)


```


## Wednesday: 20 April 2022 {.unnumbered}

```{r, echo=FALSE}

prog %>% 
  filter(!is.na(day)) %>%
  filter(day == "Wednesday 20/4") %>% 
  select(-day) %>% 
  kbl() %>%
  kable_paper("hover", full_width = T) %>% 
  column_spec(column = c(1,2), width = "100px") %>% 
  row_spec(row = c(1:2, 11, 17:18, 27:28, 35), background = "#D6EAF8") %>% 
  row_spec(row = c(12:15), background = "#F2F2F2") %>% 
  row_spec(row = c(16, 26), background = "#EDBB99") %>% # coffee & lunch
  row_spec(0, color = "#FFFFFF00") %>% 
  row_spec(c(1, 17, 27), bold = T)


```


## Thursday: 21 April 2022 {.unnumbered}

```{r, echo=FALSE}

prog %>% 
  filter(!is.na(day)) %>%
  filter(day == "Thursday 21/4") %>%
  select(-day) %>% 
  kbl() %>%
  kable_paper("hover", full_width = T) %>% 
  column_spec(column = c(1,2), width = "100px") %>% 
  row_spec(row = c(1:2, 10, 16:17, 23, 30:31, 39, 43, 47), background = "#D6EAF8") %>% 
  row_spec(row = c(11:14, 24:28), background = "#F2F2F2") %>% 
  row_spec(row = c(15, 29, 38), background = "#EDBB99") %>% # coffee & lunch
  row_spec(0, color = "#FFFFFF00") %>% 
  row_spec(c(1, 16, 30, 39, 43), bold = T)

```