Commit b4304fd8 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

More examplesIf

parent ee765ff1
...@@ -43,6 +43,7 @@ Retrieves water use data from USGS Water Use Data for the Nation. See \url{http ...@@ -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. more information. All available use categories for the supplied arguments are retrieved.
} }
\examples{ \examples{
\dontshow{if (is_dataRetrieval_user()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
\donttest{ \donttest{
#All data for a county #All data for a county
allegheny <- readNWISuse(stateCd = "Pennsylvania",countyCd = "Allegheny") allegheny <- readNWISuse(stateCd = "Pennsylvania",countyCd = "Allegheny")
...@@ -65,4 +66,5 @@ paData <- readNWISuse(stateCd = "42",countyCd = c("Allegheny County", "BUTLER", ...@@ -65,4 +66,5 @@ paData <- readNWISuse(stateCd = "42",countyCd = c("Allegheny County", "BUTLER",
#retrieving two specific categories for an entire state #retrieving two specific categories for an entire state
ks <- readNWISuse(stateCd = "KS", countyCd = NULL, categories = c("IT","LI")) ks <- readNWISuse(stateCd = "KS", countyCd = NULL, categories = c("IT","LI"))
} }
\dontshow{\}) # examplesIf}
} }
...@@ -60,6 +60,7 @@ A list of statistic codes can be found here: \url{https://nwis.waterdata.usgs.go ...@@ -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}. More information on the web service can be found here: \url{https://waterservices.usgs.gov/rest/IV-Service.html}.
} }
\examples{ \examples{
\dontshow{if (is_dataRetrieval_user()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
site_id <- '05114000' site_id <- '05114000'
parameterCd <- '00060' parameterCd <- '00060'
startDate <- "2014-10-10" startDate <- "2014-10-10"
...@@ -82,6 +83,7 @@ GMTdata <- readNWISuv(site_id,parameterCd, ...@@ -82,6 +83,7 @@ GMTdata <- readNWISuv(site_id,parameterCd,
"2014-10-10T00:00Z", "2014-10-10T23:59Z") "2014-10-10T00:00Z", "2014-10-10T23:59Z")
} }
\dontshow{\}) # examplesIf}
} }
\seealso{ \seealso{
\code{\link{renameNWISColumns}}, \code{\link{importWaterML1}} \code{\link{renameNWISColumns}}, \code{\link{importWaterML1}}
......
...@@ -106,6 +106,7 @@ Imports data from Water Quality Portal web service. This function gets the data ...@@ -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. because it allows for other agencies rather than the USGS.
} }
\examples{ \examples{
\dontshow{if (is_dataRetrieval_user()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
\donttest{ \donttest{
nameToUse <- "pH" nameToUse <- "pH"
pHData <- readWQPdata(siteid="USGS-04024315",characteristicName=nameToUse) pHData <- readWQPdata(siteid="USGS-04024315",characteristicName=nameToUse)
...@@ -146,6 +147,7 @@ dailyLexingtonVA <- readWQPdata(statecode = "Virginia", ...@@ -146,6 +147,7 @@ dailyLexingtonVA <- readWQPdata(statecode = "Virginia",
parameterCd = "00010") parameterCd = "00010")
} }
\dontshow{\}) # examplesIf}
} }
\keyword{WQP} \keyword{WQP}
\keyword{data} \keyword{data}
......
...@@ -124,6 +124,7 @@ either USGS, or other Water Quality Portal offered sites. It is required to use ...@@ -124,6 +124,7 @@ either USGS, or other Water Quality Portal offered sites. It is required to use
site name, such as 'USGS-01234567'. site name, such as 'USGS-01234567'.
} }
\examples{ \examples{
\dontshow{if (is_dataRetrieval_user()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
\donttest{ \donttest{
rawPcode <- readWQPqw('USGS-01594440','01075', '', '') rawPcode <- readWQPqw('USGS-01594440','01075', '', '')
rawCharacteristicName <- readWQPqw('WIDNR_WQX-10032762','Specific conductance', '', '') rawCharacteristicName <- readWQPqw('WIDNR_WQX-10032762','Specific conductance', '', '')
...@@ -132,6 +133,7 @@ nwisEx <- readWQPqw('USGS-04024000',c('34247','30234','32104','34220'),'','2012- ...@@ -132,6 +133,7 @@ nwisEx <- readWQPqw('USGS-04024000',c('34247','30234','32104','34220'),'','2012-
nwisEx.summary <- readWQPqw('USGS-04024000',c('34247','30234','32104','34220'), nwisEx.summary <- readWQPqw('USGS-04024000',c('34247','30234','32104','34220'),
'','2012-12-20', querySummary=TRUE) '','2012-12-20', querySummary=TRUE)
} }
\dontshow{\}) # examplesIf}
} }
\seealso{ \seealso{
\code{\link{readWQPdata}}, \code{\link{whatWQPsites}}, \code{\link{readWQPdata}}, \code{\link{whatWQPsites}},
......
...@@ -60,6 +60,7 @@ Imports a table of available parameters, period of record, and count. See \url{h ...@@ -60,6 +60,7 @@ Imports a table of available parameters, period of record, and count. See \url{h
for more information. for more information.
} }
\examples{ \examples{
\dontshow{if (is_dataRetrieval_user()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
\donttest{ \donttest{
availableData <- whatNWISdata(siteNumber = '05114000') availableData <- whatNWISdata(siteNumber = '05114000')
...@@ -71,6 +72,7 @@ flowAndTemp <- whatNWISdata(stateCd = "WI", service = "uv", ...@@ -71,6 +72,7 @@ flowAndTemp <- whatNWISdata(stateCd = "WI", service = "uv",
statCd = "00003") statCd = "00003")
} }
\dontshow{\}) # examplesIf}
} }
\keyword{USGS} \keyword{USGS}
\keyword{data} \keyword{data}
......
...@@ -86,6 +86,7 @@ type <- "Stream" ...@@ -86,6 +86,7 @@ type <- "Stream"
sites <- whatWQPmetrics(countycode="US:55:025",siteType=type) sites <- whatWQPmetrics(countycode="US:55:025",siteType=type)
lakeSites <- whatWQPmetrics(siteType = "Lake, Reservoir, Impoundment", statecode = "US:55") lakeSites <- whatWQPmetrics(siteType = "Lake, Reservoir, Impoundment", statecode = "US:55")
} }
\dontshow{if (is_dataRetrieval_user()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
\donttest{ \donttest{
site1 <- whatWQPsites(siteid="USGS-01594440") site1 <- whatWQPsites(siteid="USGS-01594440")
...@@ -96,6 +97,7 @@ sites <- whatWQPsites(countycode="US:55:025", ...@@ -96,6 +97,7 @@ sites <- whatWQPsites(countycode="US:55:025",
siteType=type) siteType=type)
} }
\dontshow{\}) # examplesIf}
\donttest{ \donttest{
site1 <- readWQPsummary(siteid="USGS-07144100", site1 <- readWQPsummary(siteid="USGS-07144100",
summaryYears=5, summaryYears=5,
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment