Update DataDiscoveryRetrieval.R

update state code list
USEPA · Feb 22, 2024 · c8b4904 · c8b4904
1 parent d068380
commit c8b4904
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/DataDiscoveryRetrieval.R b/R/DataDiscoveryRetrieval.R
@@ -172,8 +172,8 @@ TADA_DataRetrieval <- function(startDate = "null",
     if (nrow(statecodes_sub) == 0) {
       stop("State code is not valid. Check FIPS state/territory abbreviations.")
     }
-    if (length(statecode) > 1) {
-      WQPquery <- c(WQPquery, statecode = statecd)
+    if (length(statecode) >= 1) {
+      WQPquery <- c(WQPquery, statecode = list(statecd))
     }
   }