From c8b4904db5e89f68e250a9bd137498a73683e916 Mon Sep 17 00:00:00 2001 From: hillarymarler Date: Thu, 22 Feb 2024 08:43:57 -0500 Subject: [PATCH] Update DataDiscoveryRetrieval.R update state code list --- R/DataDiscoveryRetrieval.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/DataDiscoveryRetrieval.R b/R/DataDiscoveryRetrieval.R index 87de6071..3194ee0f 100644 --- 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)) } }