Commit 5f94aff2 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Taking out the http_error call

parent 464327a3
...@@ -144,9 +144,9 @@ importNGWMN <- function(input, asDateTime=FALSE, tz="UTC"){ ...@@ -144,9 +144,9 @@ importNGWMN <- function(input, asDateTime=FALSE, tz="UTC"){
#' "statCd=00003", #' "statCd=00003",
#' "parameterCd=00060",sep="&") #' "parameterCd=00060",sep="&")
#' \donttest{ #' \donttest{
#' if(!httr::http_error(URL)){ #'
#' timesereies <- importWaterML2(URL, asDateTime=TRUE, tz="UTC") #' timesereies <- importWaterML2(URL, asDateTime=TRUE, tz="UTC")
#' } #'
#' } #' }
importWaterML2 <- function(input, asDateTime=FALSE, tz="UTC") { importWaterML2 <- function(input, asDateTime=FALSE, tz="UTC") {
......
...@@ -153,17 +153,13 @@ readNGWMNlevels <- function(siteNumbers, asDateTime = TRUE, tz = "UTC"){ ...@@ -153,17 +153,13 @@ readNGWMNlevels <- function(siteNumbers, asDateTime = TRUE, tz = "UTC"){
#' @examples #' @examples
#' \donttest{ #' \donttest{
#' #one site #' #one site
#' if(!httr::http_error("https://cida.usgs.gov/ngwmn_cache")){
#' site <- "USGS.430427089284901" #' site <- "USGS.430427089284901"
#' oneSite <- readNGWMNsites(siteNumbers = site) #' oneSite <- readNGWMNsites(siteNumbers = site)
#' }
#'
#' #'
#' #non-USGS site #' #non-USGS site
#' if(!httr::http_error("https://cida.usgs.gov/ngwmn_cache")){
#' site <- "MBMG.103306" #' site <- "MBMG.103306"
#' siteInfo <- readNGWMNsites(siteNumbers = site) #' siteInfo <- readNGWMNsites(siteNumbers = site)
#' } #'
#' } #' }
readNGWMNsites <- function(siteNumbers){ readNGWMNsites <- function(siteNumbers){
sites <- readNGWMNdata(siteNumbers = siteNumbers, service = "featureOfInterest") sites <- readNGWMNdata(siteNumbers = siteNumbers, service = "featureOfInterest")
......
...@@ -28,8 +28,8 @@ URL <- paste(baseURL, "sites=01646500", ...@@ -28,8 +28,8 @@ URL <- paste(baseURL, "sites=01646500",
"statCd=00003", "statCd=00003",
"parameterCd=00060",sep="&") "parameterCd=00060",sep="&")
\donttest{ \donttest{
if(!httr::http_error(URL)){
timesereies <- importWaterML2(URL, asDateTime=TRUE, tz="UTC") timesereies <- importWaterML2(URL, asDateTime=TRUE, tz="UTC")
}
} }
} }
...@@ -25,16 +25,12 @@ Retrieve site data from the National Ground Water Monitoring Network \url{https: ...@@ -25,16 +25,12 @@ Retrieve site data from the National Ground Water Monitoring Network \url{https:
\examples{ \examples{
\donttest{ \donttest{
#one site #one site
if(!httr::http_error("https://cida.usgs.gov/ngwmn_cache")){ site <- "USGS.430427089284901"
site <- "USGS.430427089284901" oneSite <- readNGWMNsites(siteNumbers = site)
oneSite <- readNGWMNsites(siteNumbers = site)
}
#non-USGS site #non-USGS site
if(!httr::http_error("https://cida.usgs.gov/ngwmn_cache")){ site <- "MBMG.103306"
site <- "MBMG.103306" siteInfo <- readNGWMNsites(siteNumbers = site)
siteInfo <- readNGWMNsites(siteNumbers = site)
}
} }
} }
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