From 50ba2d379c0318bd56a22a1c2b7b445a889a8183 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Wed, 29 Oct 2014 15:33:51 -0500
Subject: [PATCH] Fixed example.
---
R/readNWISunit.r | 6 +++---
man/readNWISunit.Rd | 4 ++--
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/R/readNWISunit.r b/R/readNWISunit.r
index 7478fac7..e79e55cc 100644
--- a/R/readNWISunit.r
+++ b/R/readNWISunit.r
@@ -24,13 +24,13 @@
#' summary(rawData)
#' rawData2 <- readNWISunit(siteNumber,parameterCd,startDate,endDate,"tsv")
#' summary(rawData2)
-#' timeZoneChange <- readNWISunit(siteNumber,property,
-#' "2013-11-03","2013-11-03")
+#' timeZoneChange <- readNWISunit(siteNumber,parameterCd,
+#' "2013-11-03","2013-11-03","tsv")
readNWISunit <- function (siteNumber,parameterCd,startDate,endDate,format="xml"){
url <- constructNWISURL(siteNumber,parameterCd,startDate,endDate,"uv",format=format)
if (format == "xml") {
- data <- importWaterML1(url)
+ data <- importWaterML1(url,asDateTime=TRUE)
} else {
data <- importRDB1(url,asDateTime=TRUE)
}
diff --git a/man/readNWISunit.Rd b/man/readNWISunit.Rd
index 5aa9b677..75db70c3 100644
--- a/man/readNWISunit.Rd
+++ b/man/readNWISunit.Rd
@@ -36,8 +36,8 @@ rawData <- readNWISunit(siteNumber,parameterCd,startDate,endDate)
summary(rawData)
rawData2 <- readNWISunit(siteNumber,parameterCd,startDate,endDate,"tsv")
summary(rawData2)
-timeZoneChange <- readNWISunit(siteNumber,property,
- "2013-11-03","2013-11-03")
+timeZoneChange <- readNWISunit(siteNumber,parameterCd,
+ "2013-11-03","2013-11-03","tsv")
}
\keyword{USGS}
\keyword{data}
--
GitLab