From 3dcb5d22dc55e6ef139a19ff120a7c0eb58495a2 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Thu, 18 Sep 2014 16:19:23 -0500
Subject: [PATCH] Added multi-site option.
---
R/getDataAvailability.r | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/R/getDataAvailability.r b/R/getDataAvailability.r
index a54f9651..a217d83a 100644
--- a/R/getDataAvailability.r
+++ b/R/getDataAvailability.r
@@ -11,9 +11,12 @@
#' # These examples require an internet connection to run
#' availableData <- getDataAvailability('05114000')
#' # To find just unit value ('instantaneous') data:
-#' uvData <- availableData <- getDataAvailability('05114000',type="uv")
+#' uvData <- getDataAvailability('05114000',type="uv")
+#' uvDataMulti <- getDataAvailability(c('05114000','09423350'),type="uv")
getDataAvailability <- function(siteNumber,type=c("uv","dv","qw")){
+ siteNumber <- paste(siteNumber,collapse=",")
+
urlSitefile <- paste("http://waterservices.usgs.gov/nwis/site/?format=rdb&seriesCatalogOutput=true&sites=",siteNumber,sep = "")
doc = tryCatch({
--
GitLab