Data download pipeline

.gitignore

@@ -47,3 +47,8 @@ Session.vim
 # auto-generated tag files
 tags
 
+# ---> Project-specific
+# large data files
+disaggregated-crash-data.zip
+finaldata_201809.csv
+crashdata.Rdata

download.R

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

expl.R

@@ -1,5 +1,9 @@
 # Exploration on data
 
-dat <- read.csv(unzip("disaggregated-crash-data.zip", "finaldata_201809.csv"))
+# Load data from Rdata file
+load("crashdata.Rdata")
+
+# Alternative way to load data
+#dat <- read.csv("finaldata_201809.csv")
 
 str(dat)