data-raw/lookups.R

In camroach87/myhelpr: Helper Functions

season_month_lkp <- data_frame(
  month = 1:12,
  Season = c(1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4, 1),
  Season_label = c(rep("Summer", 2),
                   rep("Autumn", 3),
                   rep("Winter", 3),
                   rep("Spring", 3),
                   "Summer"),
  Season_shoulder = c(rep("Summer", 3),
                      rep("Winter", 6),
                      rep("Summer", 3))) %>%
  mutate(Season_label = factor(Season_label,
                               c("Summer", "Autumn", "Winter", "Spring"),
                               ordered = TRUE),
         Season_shoulder = factor(Season_shoulder,
                                  c("Summer", "Winter"),
                                  ordered = TRUE))

devtools::use_data(season_month_lkp, internal = TRUE, overwrite = TRUE)