library(tidyverse) # library(lubridate) # library(stringr) # library(forcats) # Load the tidy-ed data ---- readRDS("Data/tidy.rds") %>% # Transform the data # Save the transformed data ---- saveRDS("Data/transformed.rds")