10/24/2024 4:00 pm commit: add timeout for download as 600 seconds

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