Write R Script to Download Source Data

Write R script to download source data and extract.