download.R 285B

123456
  1. # Dowload data
  2. download.file("https://nzta.govt.nz/assets/Safety/docs/disaggregated-crash-data.zip",
  3. "disaggregated-crash-data.zip")
  4. unzip("disaggregated-crash-data.zip", "finaldata_201809.csv")
  5. dat <- read.csv("finaldata_201809.csv")
  6. save(dat, file = "crashdata.Rdata")