From e6519876af32183aa15e007174b86bb3d2495fa3 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Wed, 28 Jan 2015 16:15:41 -0600
Subject: [PATCH] Adding 'all' option for qw data.
---
R/constructNWISURL.r | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/constructNWISURL.r b/R/constructNWISURL.r
index 19a9ba67..dfac1d29 100644
--- a/R/constructNWISURL.r
+++ b/R/constructNWISURL.r
@@ -45,7 +45,7 @@ constructNWISURL <- function(siteNumber,parameterCd="00060",startDate="",endDate
service <- match.arg(service, c("dv","uv","iv","qw","gwlevels","rating","peak","meas"))
- if(any(!is.na(parameterCd))){
+ if(any(!is.na(parameterCd) & parameterCd != "all")){
pcodeCheck <- all(nchar(parameterCd) == 5) & all(!is.na(suppressWarnings(as.numeric(parameterCd))))
if(!pcodeCheck){
--
GitLab