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

Try again

parent 7acb0451
......@@ -61,7 +61,7 @@ for more information.
}
\examples{
\donttest{
try({
availableData <- whatNWISdata(siteNumber = '05114000')
# To find just unit value ('instantaneous') data:
uvData <- whatNWISdata(siteNumber = '05114000',service="uv")
......@@ -69,7 +69,7 @@ uvDataMulti <- whatNWISdata(siteNumber = c('05114000','09423350'),service=c("uv"
flowAndTemp <- whatNWISdata(stateCd = "WI", service = "uv",
parameterCd = c("00060","00010"),
statCd = "00003")
})
}
}
\keyword{USGS}
......
......@@ -36,9 +36,9 @@ Mapper format is used
}
\examples{
\donttest{
try({
siteListPhos <- whatNWISsites(stateCd="OH",parameterCd="00665")
oneSite <- whatNWISsites(sites="05114000")
})
}
}
......@@ -73,12 +73,12 @@ The \code{readWQPsummary} function has
}
\examples{
\donttest{
try({
site1 <- whatWQPsamples(siteid="USGS-01594440")
type <- "Stream"
sites <- whatWQPsamples(countycode="US:55:025",siteType=type)
})
}
\donttest{
......@@ -87,14 +87,14 @@ sites <- whatWQPmetrics(countycode="US:55:025",siteType=type)
lakeSites <- whatWQPmetrics(siteType = "Lake, Reservoir, Impoundment", statecode = "US:55")
}
\donttest{
try({
site1 <- whatWQPsites(siteid="USGS-01594440")
type <- "Stream"
sites <- whatWQPsites(countycode="US:55:025",
characteristicName = "Phosphorus",
siteType=type)
})
}
\donttest{
site1 <- readWQPsummary(siteid="USGS-07144100",
......
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