library(tidyverse) # library(lubridate) # library(stringr) # library(forcats) # Load the tidy-ed data ---- load("tidy.Rdata") df %>% # Save the transformed data ---- save(df, "transformed.Rdata")