From 37ee9e6bfbcfffb27125c971003536ed3d055ca5 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Wed, 28 Jan 2015 16:16:38 -0600
Subject: [PATCH] Taking out examples that depend on external servers.

---
 R/importWaterML1.r | 14 ++++++++------
 R/importWaterML2.r |  8 +++++++-
 R/readNWISsite.r   |  3 ++-
 R/readNWISunit.r   |  8 ++++++++
 4 files changed, 25 insertions(+), 8 deletions(-)

diff --git a/R/importWaterML1.r b/R/importWaterML1.r
index 8188d432..3eb1e809 100644
--- a/R/importWaterML1.r
+++ b/R/importWaterML1.r
@@ -48,7 +48,7 @@
 #' offering <- '00003'
 #' property <- '00060'
 #' obs_url <- constructNWISURL(siteNumber,property,startDate,endDate,'dv')
-#' 
+#' \dontrun{
 #' data <- importWaterML1(obs_url,TRUE)
 #' 
 #' groundWaterSite <- "431049071324301"
@@ -62,11 +62,6 @@
 #'          "2013-11-03","2013-11-03",'uv')
 #' unitData <- importWaterML1(unitDataURL,TRUE)
 #' 
-#' filePath <- system.file("extdata", package="dataRetrieval")
-#' fileName <- "WaterML1Example.xml"
-#' fullPath <- file.path(filePath, fileName)
-#' importUserWM1 <- importWaterML1(fullPath,TRUE)
-#'
 #' # Two sites, two pcodes, one site has two data descriptors:
 #' siteNumber <- c('01480015',"04085427")
 #' obs_url <- constructNWISURL(siteNumber,c("00060","00010"),startDate,endDate,'dv')
@@ -84,6 +79,13 @@
 #' inactiveAndAcitive <- c("07334200","05212700")
 #' inactiveAndAcitive <- constructNWISURL(inactiveAndAcitive, "00060", "2014-01-01", "2014-01-10",'dv')
 #' inactiveAndAcitive <- importWaterML1(inactiveAndAcitive)
+#' 
+#' }
+#' filePath <- system.file("extdata", package="dataRetrieval")
+#' fileName <- "WaterML1Example.xml"
+#' fullPath <- file.path(filePath, fileName)
+#' imporFile <- importWaterML1(fullPath,TRUE)
+#'
 importWaterML1 <- function(obs_url,asDateTime=FALSE, tz=""){
   
   if(file.exists(obs_url)){
diff --git a/R/importWaterML2.r b/R/importWaterML2.r
index 5d4fec0b..0abf9e83 100644
--- a/R/importWaterML2.r
+++ b/R/importWaterML2.r
@@ -25,7 +25,7 @@
 #'      "featureID=MD-BC-BC-05",
 #'      "offering=RAW",
 #'      "observedProperty=WATER",sep="&")
-#' 
+#' \dontrun{
 #' dataReturned1 <- importWaterML2(URL)
 #' dataReturn2 <- importWaterML2(URL2, TRUE)
 #' URLmulti <-  paste(baseURL,
@@ -35,11 +35,17 @@
 #'   "statCd=00003",
 #'   "parameterCd=00060",sep="&")
 #' dataReturnMulti <- importWaterML2(URLmulti)
+#' 
 #' filePath <- system.file("extdata", package="dataRetrieval")
 #' fileName <- "WaterML2Example.xml"
 #' fullPath <- file.path(filePath, fileName)
 #' UserData <- importWaterML2(fullPath)
+#' }
+#' filePath <- system.file("extdata", package="dataRetrieval")
+#' fileName <- "WaterML2Example.xml"
+#' fullPath <- file.path(filePath, fileName)
 #' 
+#' fileData <- importWaterML2(fullPath)
 importWaterML2 <- function(obs_url, asDateTime=FALSE, tz=""){
   
   if(file.exists(obs_url)){
diff --git a/R/readNWISsite.r b/R/readNWISsite.r
index dfe0a60d..d42b195a 100644
--- a/R/readNWISsite.r
+++ b/R/readNWISsite.r
@@ -60,9 +60,10 @@
 #' }
 #' @export
 #' @examples
-#' # These examples require an internet connection to run
+#' \dontrun{
 #' siteINFO <- readNWISsite('05114000')
 #' siteINFOMulti <- readNWISsite(c('05114000','09423350'))
+#' }
 readNWISsite <- function(siteNumbers){
   
   siteNumber <- paste(siteNumbers,collapse=",")
diff --git a/R/readNWISunit.r b/R/readNWISunit.r
index 501814a8..1662a8da 100644
--- a/R/readNWISunit.r
+++ b/R/readNWISunit.r
@@ -104,7 +104,9 @@ readNWISuv <- function (siteNumbers,parameterCd,startDate="",endDate="", tz=""){
 #' @export
 #' @examples
 #' siteNumbers <- c('01594440','040851325')
+#' \dontrun{
 #' data <- readNWISpeak(siteNumbers)
+#' }
 readNWISpeak <- function (siteNumbers,startDate="",endDate=""){  
   
   # Doesn't seem to be a peak xml service
@@ -158,8 +160,10 @@ readNWISpeak <- function (siteNumbers,startDate="",endDate=""){
 #' @export
 #' @examples
 #' siteNumber <- '01594440'
+#' \dontrun{
 #' data <- readNWISrating(siteNumber, "base")
 #' attr(data, "RATING")
+#' }
 readNWISrating <- function (siteNumber,type="base"){  
   
   # No rating xml service 
@@ -221,7 +225,9 @@ readNWISrating <- function (siteNumber,type="base"){
 #' @export
 #' @examples
 #' siteNumbers <- c('01594440','040851325')
+#' \dontrun{
 #' data <- readNWISmeas(siteNumbers)
+#' }
 readNWISmeas <- function (siteNumbers,startDate="",endDate="", tz=""){  
   
   # Doesn't seem to be a WaterML1 format option
@@ -283,10 +289,12 @@ readNWISmeas <- function (siteNumbers,startDate="",endDate="", tz=""){
 #' @export
 #' @examples
 #' siteNumber <- "434400121275801"
+#' \dontrun{
 #' data <- readNWISgwl(siteNumber, '','')
 #' sites <- c("434400121275801", "375907091432201")
 #' data2 <- readNWISgwl(sites, '','')
 #' data3 <- readNWISgwl("420125073193001", '','')
+#' }
 readNWISgwl <- function (siteNumbers,startDate="",endDate=""){  
   
 #   url <- constructNWISURL(siteNumbers,NA,startDate,endDate,"gwlevels",format="wml1")
-- 
GitLab