Downloads quarterly housing prices for the years

Downloads quarterly housing prices for the years 2006-2016 to the current working directory as 5 excel files

downloadHousingPrices(key = 3)

Arguments

year

defaults to true

Examples

downloadHousingPrices(13)
#> NULL
downloadHousingPrices(FALSE)
#> [1] "Census data for those years not yet implemented."
downloadHousingPrices(3)
#> [1] "Downloading test file logo.gif to your working directory."
#> Error in function (type, msg, asError = TRUE) {    if (!is.character(type)) {        i = match(type, CURLcodeValues)        typeName = if (is.na(i))             character()        else names(CURLcodeValues)[i]    }    typeName = gsub("^CURLE_", "", typeName)    fun = (if (asError)         stop    else warning)    fun(structure(list(message = msg, call = sys.call()), class = c(typeName,         "GenericCurlError", "error", "condition")))}(7L, "Failed to connect to www-eng-x.llnl.gov port 80: Connection refused",     TRUE): Failed to connect to www-eng-x.llnl.gov port 80: Connection refused
downloadHousingPrices()
#> [1] "Downloading test file logo.gif to your working directory."
#> Error in function (type, msg, asError = TRUE) {    if (!is.character(type)) {        i = match(type, CURLcodeValues)        typeName = if (is.na(i))             character()        else names(CURLcodeValues)[i]    }    typeName = gsub("^CURLE_", "", typeName)    fun = (if (asError)         stop    else warning)    fun(structure(list(message = msg, call = sys.call()), class = c(typeName,         "GenericCurlError", "error", "condition")))}(7L, "Failed to connect to www-eng-x.llnl.gov port 80: Connection refused",     TRUE): Failed to connect to www-eng-x.llnl.gov port 80: Connection refused