data-raw/download.R

In nacnudus/nzpullover: Driving Offences in New Zealand Between 2009 and 2017

url_source <- "http://www.police.govt.nz/sites/default/files/publications/road-policing-driver-offence-data-1jan2009-30june2018.xlsx"
path_source <-  "./inst/extdata/road-policing-driver-offence-data-1jan2009-30june2018.xlsx"

# download.file(url_source, path_source, mode = "wb")

source("./data-raw/general-sheets.R")
source("./data-raw/fleeing.R")
source("./data-raw/speed-by-excess.R")

driving_offences <- general
excess <- excess_tidied
police_speeding <- police_speeding_tidied
police_speeding_band <- police_speeding_band
fleeing_area <- fleeing_area_tidied
fleeing_district <- fleeing_district_tidied

usethis::use_data(driving_offences, overwrite = TRUE)
usethis::use_data(static_camera, overwrite = TRUE)
usethis::use_data(excess, overwrite = TRUE)
usethis::use_data(police_speeding, overwrite = TRUE)
usethis::use_data(police_speeding_band, overwrite = TRUE)
usethis::use_data(fleeing_area, overwrite = TRUE)
usethis::use_data(fleeing_district, overwrite = TRUE)