More examplesIf

man/readNWISuse.Rd

@@ -43,6 +43,7 @@ Retrieves water use data from USGS Water Use Data for the Nation.  See \url{http
 more information.  All available use categories for the supplied arguments are retrieved.
 }
 \examples{
+\dontshow{if (is_dataRetrieval_user()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
 \donttest{
 #All data for a county
 allegheny <- readNWISuse(stateCd = "Pennsylvania",countyCd = "Allegheny")
@@ -65,4 +66,5 @@ paData <- readNWISuse(stateCd = "42",countyCd = c("Allegheny County", "BUTLER",
 #retrieving two specific categories for an entire state
 ks <- readNWISuse(stateCd = "KS", countyCd = NULL, categories = c("IT","LI"))
 }
+\dontshow{\}) # examplesIf}
 }

man/readNWISuv.Rd

@@ -60,6 +60,7 @@ A list of statistic codes can be found here: \url{https://nwis.waterdata.usgs.go
 More information on the web service can be found here: \url{https://waterservices.usgs.gov/rest/IV-Service.html}.
 }
 \examples{
+\dontshow{if (is_dataRetrieval_user()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
 site_id <- '05114000'
 parameterCd <- '00060'
 startDate <- "2014-10-10"
@@ -82,6 +83,7 @@ GMTdata <- readNWISuv(site_id,parameterCd,
                            "2014-10-10T00:00Z", "2014-10-10T23:59Z")
 
 }
+\dontshow{\}) # examplesIf}
 }
 \seealso{
 \code{\link{renameNWISColumns}}, \code{\link{importWaterML1}}

man/readWQPdata.Rd

@@ -106,6 +106,7 @@ Imports data from Water Quality Portal web service. This function gets the data
 because it allows for other agencies rather than the USGS.
 }
 \examples{
+\dontshow{if (is_dataRetrieval_user()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
 \donttest{
 nameToUse <- "pH"
 pHData <- readWQPdata(siteid="USGS-04024315",characteristicName=nameToUse)
@@ -146,6 +147,7 @@ dailyLexingtonVA <- readWQPdata(statecode = "Virginia",
                                 parameterCd = "00010") 
                                 
 }
+\dontshow{\}) # examplesIf}
 }
 \keyword{WQP}
 \keyword{data}

man/readWQPqw.Rd

@@ -124,6 +124,7 @@ either USGS, or other Water Quality Portal offered sites. It is required to use
 site name, such as 'USGS-01234567'.
 }
 \examples{
+\dontshow{if (is_dataRetrieval_user()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
 \donttest{
 rawPcode <- readWQPqw('USGS-01594440','01075', '', '')
 rawCharacteristicName <- readWQPqw('WIDNR_WQX-10032762','Specific conductance', '', '')
@@ -132,6 +133,7 @@ nwisEx <- readWQPqw('USGS-04024000',c('34247','30234','32104','34220'),'','2012-
 nwisEx.summary <- readWQPqw('USGS-04024000',c('34247','30234','32104','34220'),
     '','2012-12-20', querySummary=TRUE)
 }
+\dontshow{\}) # examplesIf}
 }
 \seealso{
 \code{\link{readWQPdata}}, \code{\link{whatWQPsites}}, 

man/whatNWISdata.Rd

@@ -60,6 +60,7 @@ Imports a table of available parameters, period of record, and count. See \url{h
 for more information.
 }
 \examples{
+\dontshow{if (is_dataRetrieval_user()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
 \donttest{
 
 availableData <- whatNWISdata(siteNumber = '05114000')
@@ -71,6 +72,7 @@ flowAndTemp <- whatNWISdata(stateCd = "WI", service = "uv",
                              statCd = "00003")
 
 }
+\dontshow{\}) # examplesIf}
 }
 \keyword{USGS}
 \keyword{data}

man/wqpSpecials.Rd

@@ -86,6 +86,7 @@ type <- "Stream"
 sites <- whatWQPmetrics(countycode="US:55:025",siteType=type)
 lakeSites <- whatWQPmetrics(siteType = "Lake, Reservoir, Impoundment", statecode = "US:55")
 }
+\dontshow{if (is_dataRetrieval_user()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
 \donttest{
 
 site1 <- whatWQPsites(siteid="USGS-01594440")
@@ -96,6 +97,7 @@ sites <- whatWQPsites(countycode="US:55:025",
                       siteType=type)
 
 }
+\dontshow{\}) # examplesIf}
 \donttest{
 site1 <- readWQPsummary(siteid="USGS-07144100",
                         summaryYears=5,