From 978bd432a0077ba41e8c91642fffab107cd1edd0 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Tue, 11 Nov 2014 16:15:35 -0600
Subject: [PATCH] More robust.
---
R/constructNWISURL.r | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/constructNWISURL.r b/R/constructNWISURL.r
index b9741719..7cbe6261 100644
--- a/R/constructNWISURL.r
+++ b/R/constructNWISURL.r
@@ -44,7 +44,7 @@ constructNWISURL <- function(siteNumber,parameterCd="00060",startDate="",endDate
service <- match.arg(service, c("dv","uv","iv","qw","gwlevels","rating","peak","meas"))
- if(!is.na(parameterCd)){
+ if(any(!is.na(parameterCd))){
pcodeCheck <- all(nchar(parameterCd) == 5) & all(!is.na(suppressWarnings(as.numeric(parameterCd))))
if(!pcodeCheck){
--
GitLab