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
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}
}
......@@ -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}}
......
......@@ -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}
......
......@@ -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}},
......
......@@ -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}
......
......@@ -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,
......
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