diff --git a/R/constructNWISURL.r b/R/constructNWISURL.r index dfac1d29c71a6fcc6cd60bde29325d740a3817ca..d8ce58a9d4a49100e4e26c589f0cb2e218e2be8e 100644 --- a/R/constructNWISURL.r +++ b/R/constructNWISURL.r @@ -50,12 +50,12 @@ constructNWISURL <- function(siteNumber,parameterCd="00060",startDate="",endDate if(!pcodeCheck){ badIndex <- which(nchar(parameterCd) != 5 | is.na(suppressWarnings(as.numeric(parameterCd)))) - stop("The following pCodes appear mistyped:",paste(parameterCd[badIndex],collapse=",")) - } else { - parameterCdCheck <- readNWISpCode(parameterCd) } + if(length(parameterCd) > 200){ + stop("Maximum parameter codes allowed is 200, please adjust data request.") + } } multipleSites <- length(siteNumber) > 1 diff --git a/inst/doc/dataRetrieval.pdf b/inst/doc/dataRetrieval.pdf index b4704e6465d0c36f7e45c2405f689f7c54e725ab..4799e6167327601fe9ee5e80751fae6c4af6db11 100644 Binary files a/inst/doc/dataRetrieval.pdf and b/inst/doc/dataRetrieval.pdf differ diff --git a/vignettes/figure/getNWIStemperaturePlot-1.pdf b/vignettes/figure/getNWIStemperaturePlot-1.pdf index 523086ed5174789a472e74e579e86bc35d484daa..0f18e7d998023d7fb221005eac8d6fce5289aaaf 100644 Binary files a/vignettes/figure/getNWIStemperaturePlot-1.pdf and b/vignettes/figure/getNWIStemperaturePlot-1.pdf differ