diff --git a/R/readNWISunit.r b/R/readNWISunit.r index 7478fac7ba442ffb65762394d84f3480ef72fdb0..e79e55ccb15f81683bfb98960f0161891f050823 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 5aa9b677935a877b9f11f635e9876154788b7a0d..75db70c38e1cd9c7ae49633018aa9e17974dc025 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}