library(tidyverse)
# library(lubridate)
# library(stringr)
# library(forcats)

# Load the csv data and tidy it ----
read_csv("Data/.csv") %>%
  select() %>%
  filter() %>%
  mutate() %>%
  dmap_if(is.character, factor) %>%
# Save the tidy-ed data ----
  saveRDS(file = "Data/tidy.rds")