From a356d50dd5b380abb72bd2ba3a4c6b047b8393c4 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Tue, 11 Nov 2014 16:16:20 -0600
Subject: [PATCH] Comes back with Date.
---
R/readNWISdv.r | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/R/readNWISdv.r b/R/readNWISdv.r
index 5d79ae54..256c8d7d 100644
--- a/R/readNWISdv.r
+++ b/R/readNWISdv.r
@@ -18,19 +18,22 @@
#' endDate <- '2012-06-30'
#' pCode <- '00060'
#' rawDailyQ <- readNWISdv(siteNumber,pCode, startDate, endDate)
-#' rawDailyTemperature <- readNWISdv(siteNumber,'00010',
-#' startDate, endDate, statCd='00001')
#' rawDailyQAndTempMeanMax <- readNWISdv(siteNumber,c('00010','00060'),
#' startDate, endDate, statCd=c('00001','00003'))
+#' rawDailyQAndTempMeanMax <- renameNWISColumns(rawDailyQAndTempMeanMax)
#' rawDailyMultiSites<- readNWISdv(c("01491000","01645000"),c('00010','00060'),
#' startDate, endDate, statCd=c('00001','00003'))
-#' x <- readNWISdv("10258500","00060", "2014-09-10", "2014-09-12")
+#' # Site with no data:
+#' x <- readNWISdv("10258500","00060", "2014-09-08", "2014-09-14")
+#' names(attributes(x))
+#' attr(x, "siteInfo")
+#' attr(x, "variableInfo")
readNWISdv <- function (siteNumber,parameterCd,startDate="",endDate="",statCd="00003"){
url <- constructNWISURL(siteNumber,parameterCd,startDate,endDate,"dv",statCd=statCd)
- data <- importWaterML1(url, asDateTime=TRUE)
-
+ data <- importWaterML1(url, asDateTime=FALSE)
+ data$dateTime <- as.Date(data$dateTime)
return (data)
}
--
GitLab