scripts/crime-create.R

library(tidyr)

crime <- read.csv(here::here("data-raw/crime.csv")) %>%
  gather(year, count, -Province, -Station, -Category) %>%
  mutate(year = substr(year, 2, 5) %>% as.numeric()) %>%
  setNames(tolower(names(.)))

usethis::use_data(crime, overwrite = TRUE)
DataWookie/saffeR documentation built on Jan. 4, 2023, 4:57 p.m.