Separate out into read_data.R and download/unzip as needed

A few comments on the R scripts