From 5e2c42d9bd3d2690ad2ade0ace25c5b64a24fd57 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Fri, 10 Oct 2014 09:08:30 -0500
Subject: [PATCH] Fixed example to be under 100 characters wide.
---
R/getWaterML1Data.r | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/R/getWaterML1Data.r b/R/getWaterML1Data.r
index 46511096..f136e270 100644
--- a/R/getWaterML1Data.r
+++ b/R/getWaterML1Data.r
@@ -13,14 +13,18 @@
#' endDate <- "2012-10-01"
#' offering <- '00003'
#' property <- '00060'
+#' urlBase <- "http://waterservices.usgs.gov/nwis"
#' obs_url <- constructNWISURL(siteNumber,property,startDate,endDate,'dv')
#' data <- getWaterML1Data(obs_url)
#' urlMulti <- constructNWISURL("04085427",c("00060","00010"),
#' startDate,endDate,'dv',statCd=c("00003","00001"))
#' multiData <- getWaterML1Data(urlMulti)
-#' goundwaterExampleURL <-
-#' "http://waterservices.usgs.gov/nwis/gwlevels/?format=waterml&sites=431049071324301&startDT=2013-10-01&endDT=2014-06-30"
-#' groundWater <- getWaterML1Data(goundwaterExampleURL)
+#' groundWaterSite <- "431049071324301"
+#' startGW <- "2013-10-01"
+#' endGW <- "2014-06-30"
+#' groundwaterExampleURL <- constructNWISURL(groundWaterSite, NA,
+#' startGW,endGW, service="gwlevels", format="xml",interactive=FALSE)
+#' groundWater <- getWaterML1Data(groundwaterExampleURL)
#' unitDataURL <- constructNWISURL(siteNumber,property,
#' as.character(Sys.Date()),as.character(Sys.Date()),'uv',format='xml')
#' unitData <- getWaterML1Data(unitDataURL)
@@ -53,7 +57,6 @@ getWaterML1Data <- function(obs_url){
for (i in 1:length(timeSeries)){
-
chunk <- xmlDoc(timeSeries[[i]])
chunk <- xmlRoot(chunk)
chunkNS <- xmlNamespaceDefinitions(chunk, simplify = TRUE)
--
GitLab