Default Data Download Snippet in R

getData.R

#Change the working directory
setwd("~/Google Drive/code/ThisProject")

# Change these three variables
  datapath <- "./data"
  filename <- "housing.csv"
  fileUrl <- "http://d396qusza40orc.cloudfront.net/getdata%2Fdata%2Fss06hid.csv"
######

if (!file.exists(datapath)) {
    dir.create(datapath)
}

pathandfilename <- paste(datapath, "/", filename, sep="")

if (!file.exists(pathandfilename)) {
	download.file(fileUrl, destfile=pathandfilename, method="curl")
}

data <- read.csv(pathandfilename)