diff --git a/R/constructNWISURL.r b/R/constructNWISURL.r
index 66756212e95d78a7271411eda137adb527c47077..7b838f7b9a31070588f1ba46cab1c14eae3f6516 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 c8208e01258b31856cfcb9d24994db044efc515d..384b286afc826cde9aaf65edf53ed4d706707d55 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}