From 4e6ecf911e51f1870557e02c47b2f80a2da0420a Mon Sep 17 00:00:00 2001
From: Laura DeCicco <ldecicco@usgs.gov>
Date: Fri, 17 Jul 2015 13:03:40 -0500
Subject: [PATCH] Found an example that was being run with a web service call.
Moved to dontrun.
---
R/importWaterML1.r | 9 +++++----
man/importWaterML1.Rd | 9 +++++----
2 files changed, 10 insertions(+), 8 deletions(-)
diff --git a/R/importWaterML1.r b/R/importWaterML1.r
index a7db0170..4d6df540 100644
--- a/R/importWaterML1.r
+++ b/R/importWaterML1.r
@@ -84,16 +84,17 @@
#' inactiveAndAcitive <- constructNWISURL(inactiveAndAcitive, "00060", "2014-01-01", "2014-01-10",'dv')
#' inactiveAndAcitive <- importWaterML1(inactiveAndAcitive)
#'
+#' Timezone change with specified local timezone:
+#' tzURL <- constructNWISURL("04027000", c("00300","63680"), "2011-11-05", "2011-11-07","uv")
+#' tzIssue <- importWaterML1(tzURL, TRUE, "America/Chicago")
+#'
+#'
#' }
#' filePath <- system.file("extdata", package="dataRetrieval")
#' fileName <- "WaterML1Example.xml"
#' fullPath <- file.path(filePath, fileName)
#' imporFile <- importWaterML1(fullPath,TRUE)
#'
-#'#Timezone change with specified local timezone:
-#' tzURL <- constructNWISURL("04027000", c("00300","63680"), "2011-11-05", "2011-11-07","uv")
-#' tzIssue <- importWaterML1(tzURL, TRUE, "America/Chicago")
-#'
importWaterML1 <- function(obs_url,asDateTime=FALSE, tz=""){
if(file.exists(obs_url)){
diff --git a/man/importWaterML1.Rd b/man/importWaterML1.Rd
index 8c3821ca..ec30884a 100644
--- a/man/importWaterML1.Rd
+++ b/man/importWaterML1.Rd
@@ -88,15 +88,16 @@ inactiveAndAcitive <- c("07334200","05212700")
inactiveAndAcitive <- constructNWISURL(inactiveAndAcitive, "00060", "2014-01-01", "2014-01-10",'dv')
inactiveAndAcitive <- importWaterML1(inactiveAndAcitive)
+Timezone change with specified local timezone:
+tzURL <- constructNWISURL("04027000", c("00300","63680"), "2011-11-05", "2011-11-07","uv")
+tzIssue <- importWaterML1(tzURL, TRUE, "America/Chicago")
+
+
}
filePath <- system.file("extdata", package="dataRetrieval")
fileName <- "WaterML1Example.xml"
fullPath <- file.path(filePath, fileName)
imporFile <- importWaterML1(fullPath,TRUE)
-
-#Timezone change with specified local timezone:
-tzURL <- constructNWISURL("04027000", c("00300","63680"), "2011-11-05", "2011-11-07","uv")
-tzIssue <- importWaterML1(tzURL, TRUE, "America/Chicago")
}
\seealso{
\code{\link{renameNWISColumns}}
--
GitLab