From 257f6073edd5e2729d6fd9ea650118ce9857b2c4 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Wed, 31 Dec 2014 11:07:28 -0600
Subject: [PATCH] Added check to make sure multiple services aren't requested.
---
R/readNWISdata.r | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/R/readNWISdata.r b/R/readNWISdata.r
index 28d2907e..8b54a4cf 100644
--- a/R/readNWISdata.r
+++ b/R/readNWISdata.r
@@ -50,6 +50,10 @@ readNWISdata <- function(service="dv", ...){
matchReturn <- list(...)
+ if(length(service) > 1){
+ stop("Only one service call allowed.")
+ }
+
values <- sapply(matchReturn, function(x) URLencode(as.character(paste(eval(x),collapse=",",sep=""))))
urlCall <- paste(paste(names(values),values,sep="="),collapse="&")
--
GitLab