fix handling of FAF download

USEPA · Dec 13, 2024 · 8317038 · 8317038
1 parent 3c4e8dd
commit 8317038
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/data-raw/FAFData.R b/data-raw/FAFData.R
@@ -40,7 +40,7 @@ getFAF <- function(year) {
 
   # Download all FAF tables into the placeholder file
   if (!file.exists(FAFzip)) {
-    utils::download.file(paste0(file_baseurl, gsub(stateio_dir, "", FAFzip_short)),
+    utils::download.file(paste0(file_baseurl, basename(FAFzip)),
                          FAFzip, mode = "wb", timeout = 1500)
 
     # Get the name of all files in the zip archive