activity_url <- "http://www.testdata.pig/2013/2013.zip"
temp <- tempfile()
download.file(activity_url, temp)
unzip(temp, "2013.xlsx")
data_2013 <- read_excel("2013.xlsx")
unlink(temp)