From ad520502868d87dc5c987ce4794397383107bb01 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Wed, 31 Dec 2014 10:05:31 -0600
Subject: [PATCH] Took out option check because WQP does it too.
---
R/readWQPdata.R | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/R/readWQPdata.R b/R/readWQPdata.R
index 750a5903..5ba8c682 100644
--- a/R/readWQPdata.R
+++ b/R/readWQPdata.R
@@ -95,11 +95,12 @@ readWQPdata <- function(...){
matchReturn <- list(...)
- options <- c("bBox","lat","long","within","countrycode","statecode","countycode","siteType","organization",
- "siteid","huc","sampleMedia","characteristicType","characteristicName","pCode","activityId",
- "startDateLo","startDateHi","mimeType","Zip","providers")
-
- if(!all(names(matchReturn) %in% options)) warning(matchReturn[!(names(matchReturn) %in% options)],"is not a valid query parameter to the Water Quality Portal")
+ # WQP does a better job of this in the header return:
+# options <- c("bBox","lat","long","within","countrycode","statecode","countycode","siteType","organization",
+# "siteid","huc","sampleMedia","characteristicType","characteristicName","pCode","activityId",
+# "startDateLo","startDateHi","mimeType","Zip","providers")
+#
+# if(!all(names(matchReturn) %in% options)) warning(names(matchReturn)[!(names(matchReturn) %in% options)]," is not a valid query parameter to the Water Quality Portal")
values <- sapply(matchReturn, function(x) URLencode(as.character(paste(eval(x),collapse="",sep=""))))
--
GitLab