only check basename for dups

DOI-USGS · Jul 29, 2024 · a609fa7 · a609fa7
1 parent 917cb34
commit a609fa7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/get_nhdplushr.R b/R/get_nhdplushr.R
@@ -67,7 +67,7 @@ get_nhdplushr <- function(hr_dir, out_gpkg = NULL,
     gdbs <- list.files(hr_dir, pattern = "sub.gpkg", full.names = TRUE)
   }
 
-  dup_list_key <- regmatches(gdbs, regexpr("[0-9][0-9][0-9][0-9]", gdbs))
+  dup_list_key <- regmatches(basename(gdbs), regexpr("[0-9][0-9][0-9][0-9]", basename(gdbs)))
 
   if(any(duplicated(dup_list_key))) {
     remove <- gdbs[duplicated(dup_list_key)]