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")
-#' } 
+#' 
+#' timesereies <- importWaterML2(URL, asDateTime=TRUE, tz="UTC")
+#'  
 #' }
 importWaterML2 <- function(input, asDateTime=FALSE, tz="UTC") {
   

R/readNGWMNdata.R

@@ -152,18 +152,14 @@ 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)   
-#' }
+#' #one 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)
+#' 
 #' }
 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

@@ -24,17 +24,13 @@ 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)   
-}
+#one 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)
+
 }
 }