diff --git a/data-raw/USASpendingData.R b/data-raw/USASpendingData.R index ddd80ed..87d3672 100644 --- a/data-raw/USASpendingData.R +++ b/data-raw/USASpendingData.R @@ -37,7 +37,7 @@ getFedGovSpending <- function(year) { if (!file.exists(FedGovExpzip)) { utils::download.file(paste0("https://files.usaspending.gov/award_data_archive/FY", year_N, "_All_Contracts_Full_", data_date, ".zip"), - FedGovExpzip, mode = "wb") + FedGovExpzip, mode = "wb", timeout = 600) } # Get the name of all files in the zip archive fname <- unzip(FedGovExpzip, list = TRUE)[unzip(FedGovExpzip, list = TRUE)$Length > 0, ]$Name