From bf14ff3bf76bb54be9c001fdbc02c65057abd5df Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Wed, 29 Oct 2014 15:43:02 -0500
Subject: [PATCH] Add multi-site example.
---
R/readNWISunit.r | 5 +++--
man/readNWISunit.Rd | 3 ++-
2 files changed, 5 insertions(+), 3 deletions(-)
diff --git a/R/readNWISunit.r b/R/readNWISunit.r
index e79e55cc..7d2fa9cf 100644
--- a/R/readNWISunit.r
+++ b/R/readNWISunit.r
@@ -24,12 +24,13 @@
#' summary(rawData)
#' rawData2 <- readNWISunit(siteNumber,parameterCd,startDate,endDate,"tsv")
#' summary(rawData2)
-#' timeZoneChange <- readNWISunit(siteNumber,parameterCd,
+#' timeZoneChange <- readNWISunit(c('04024430','04024000'),parameterCd,
#' "2013-11-03","2013-11-03","tsv")
+#' firstSite <- timeZoneChange[timeZoneChange$site_no == '04024430',]
readNWISunit <- function (siteNumber,parameterCd,startDate,endDate,format="xml"){
url <- constructNWISURL(siteNumber,parameterCd,startDate,endDate,"uv",format=format)
- if (format == "xml") {
+ if (format == "xml" | format == "wml1") {
data <- importWaterML1(url,asDateTime=TRUE)
} else {
data <- importRDB1(url,asDateTime=TRUE)
diff --git a/man/readNWISunit.Rd b/man/readNWISunit.Rd
index 75db70c3..0aa9778e 100644
--- a/man/readNWISunit.Rd
+++ b/man/readNWISunit.Rd
@@ -36,8 +36,9 @@ rawData <- readNWISunit(siteNumber,parameterCd,startDate,endDate)
summary(rawData)
rawData2 <- readNWISunit(siteNumber,parameterCd,startDate,endDate,"tsv")
summary(rawData2)
-timeZoneChange <- readNWISunit(siteNumber,parameterCd,
+timeZoneChange <- readNWISunit(c('04024430','04024000'),parameterCd,
"2013-11-03","2013-11-03","tsv")
+firstSite <- timeZoneChange[timeZoneChange$site_no == '04024430',]
}
\keyword{USGS}
\keyword{data}
--
GitLab