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