From 8a3e8652d69d242517019e4a4f992a2125b76a37 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Tue, 21 Oct 2014 13:49:46 -0500
Subject: [PATCH] Limited examples to shorten run time.

---
 R/constructNWISURL.r    | 2 ++
 man/constructNWISURL.Rd | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/R/constructNWISURL.r b/R/constructNWISURL.r
index 66756212..7b838f7b 100644
--- a/R/constructNWISURL.r
+++ b/R/constructNWISURL.r
@@ -27,6 +27,7 @@
 #' url_daily <- constructNWISURL(siteNumber,pCode,
 #'            startDate,endDate,'dv',statCd=c("00003","00001"))
 #' url_unit <- constructNWISURL(siteNumber,pCode,"2012-06-28","2012-06-30",'iv')
+#' \dontrun{
 #' url_qw_single <- constructNWISURL(siteNumber,"01075",startDate,endDate,'qw')
 #' url_qw <- constructNWISURL(siteNumber,c('01075','00029','00453'),
 #'            startDate,endDate,'qw')
@@ -34,6 +35,7 @@
 #'            startDate,endDate,'wqp')
 #' url_daily_tsv <- constructNWISURL(siteNumber,pCode,startDate,endDate,'dv',
 #'            statCd=c("00003","00001"),format="tsv")
+#'            }
 constructNWISURL <- function(siteNumber,parameterCd,startDate,endDate,service,statCd="00003", format="xml",expanded=FALSE,interactive=TRUE){
 
   startDate <- formatCheckDate(startDate, "StartDate", interactive=interactive)
diff --git a/man/constructNWISURL.Rd b/man/constructNWISURL.Rd
index c8208e01..384b286a 100644
--- a/man/constructNWISURL.Rd
+++ b/man/constructNWISURL.Rd
@@ -44,6 +44,7 @@ pCode <- c("00060","00010")
 url_daily <- constructNWISURL(siteNumber,pCode,
            startDate,endDate,'dv',statCd=c("00003","00001"))
 url_unit <- constructNWISURL(siteNumber,pCode,"2012-06-28","2012-06-30",'iv')
+\dontrun{
 url_qw_single <- constructNWISURL(siteNumber,"01075",startDate,endDate,'qw')
 url_qw <- constructNWISURL(siteNumber,c('01075','00029','00453'),
            startDate,endDate,'qw')
@@ -51,6 +52,7 @@ url_wqp <- constructNWISURL(paste("USGS",siteNumber,sep="-"),c('01075','00029','
            startDate,endDate,'wqp')
 url_daily_tsv <- constructNWISURL(siteNumber,pCode,startDate,endDate,'dv',
            statCd=c("00003","00001"),format="tsv")
+           }
 }
 \keyword{USGS}
 \keyword{data}
-- 
GitLab