Taking out the http_error call

R/importNGWMN_wml2.R

@@ -144,9 +144,9 @@ importNGWMN <- function(input, asDateTime=FALSE, tz="UTC"){
 #'      "statCd=00003",
 #'      "parameterCd=00060",sep="&")
 #' \donttest{
-#' if(!httr::http_error(URL)){
+#' 
 #' timesereies <- importWaterML2(URL, asDateTime=TRUE, tz="UTC")
-#' } 
+#'  
 #' }
 importWaterML2 <- function(input, asDateTime=FALSE, tz="UTC") {
   

R/readNGWMNdata.R

@@ -153,17 +153,13 @@ readNGWMNlevels <- function(siteNumbers, asDateTime = TRUE, tz = "UTC"){
 #' @examples 
 #' \donttest{
 #' #one site 
-#' if(!httr::http_error("https://cida.usgs.gov/ngwmn_cache")){
 #' site <- "USGS.430427089284901"
 #' oneSite <- readNGWMNsites(siteNumbers = site)   
-#' }
-#' 
 #' 
 #' #non-USGS site
-#' if(!httr::http_error("https://cida.usgs.gov/ngwmn_cache")){
 #' site <- "MBMG.103306"
 #' siteInfo <- readNGWMNsites(siteNumbers = site)
-#' }
+#' 
 #' }
 readNGWMNsites <- function(siteNumbers){
   sites <- readNGWMNdata(siteNumbers = siteNumbers, service = "featureOfInterest")

man/importWaterML2.Rd

@@ -28,8 +28,8 @@ URL <- paste(baseURL, "sites=01646500",
      "statCd=00003",
      "parameterCd=00060",sep="&")
 \donttest{
-if(!httr::http_error(URL)){
-  timesereies <- importWaterML2(URL, asDateTime=TRUE, tz="UTC")
-} 
+
+timesereies <- importWaterML2(URL, asDateTime=TRUE, tz="UTC")
+ 
 }
 }

man/readNGWMNsites.Rd

@@ -25,16 +25,12 @@ Retrieve site data from the National Ground Water Monitoring Network \url{https:
 \examples{
 \donttest{
 #one site 
-if(!httr::http_error("https://cida.usgs.gov/ngwmn_cache")){
-  site <- "USGS.430427089284901"
-  oneSite <- readNGWMNsites(siteNumbers = site)   
-}
-
+site <- "USGS.430427089284901"
+oneSite <- readNGWMNsites(siteNumbers = site)   
 
 #non-USGS site
-if(!httr::http_error("https://cida.usgs.gov/ngwmn_cache")){
-  site <- "MBMG.103306"
-  siteInfo <- readNGWMNsites(siteNumbers = site)
-}
+site <- "MBMG.103306"
+siteInfo <- readNGWMNsites(siteNumbers = site)
+
 }
 }