add ebv_i_check_url function, dontest ebv_download function

R/ebv_download.R

@@ -26,10 +26,11 @@
 #' @export
 #'
 #' @examples
-#' #get all available datasets
-#' datasets <- ebv_download()
 #'
 #' \donttest{
+#' #' #get all available datasets
+#' datasets <- ebv_download()
+#'
 #' ebv_download(id = datasets$id[1], outputdir =
 #' tempdir(), overwrite=TRUE,
 #' verbose=FALSE)

R/ebv_utils.R

@@ -892,3 +892,16 @@
   data_level_clean <- enc2utf8(unlist(data_level))
   return(data_level_clean)
 }
+
+#' Checks if a url is invalid/not reachable
+#'
+#' @param url String with the url. must start with http(s)://
+#'
+#' @return Returns TRUE if the url is invalid, else returns FALSE
+#' @noRd
+ebv_i_check_url <- function(url){
+  con <- url(url)
+  check <- suppressWarnings(try(open.connection(con,open="rt",timeout=t),silent=T)[1])
+  suppressWarnings(try(close.connection(con),silent=T))
+  ifelse(is.null(check),FALSE,TRUE)
+}

tests/testthat/test-download.R

@@ -1,13 +1,6 @@
 # basic tests for ebv_download ----
-#check URL
-invalid_url <- function(url_in,t=2){
-  con <- url(url_in)
-  check <- suppressWarnings(try(open.connection(con,open="rt",timeout=t),silent=T)[1])
-  suppressWarnings(try(close.connection(con),silent=T))
-  ifelse(is.null(check),FALSE,TRUE)
-}
-
-portal_down <- invalid_url('https://portal.geobon.org/api/v1/datasets')
+#check url
+portal_down <- ebv_i_check_url('https://portal.geobon.org/api/v1/datasets')
 
 if(portal_down){
   #expect an error