lint new helper function

LuiseQuoss · Jul 10, 2024 · 8fd1050 · 8fd1050
1 parent e22fe5c
commit 8fd1050
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/ebv_utils.R b/R/ebv_utils.R
@@ -901,7 +901,7 @@ ebv_i_char_variable <- function(string_vector, max_char, reverse=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)
+  check <- suppressWarnings(try(open.connection(con, open="rt", timeout=t), silent=TRUE)[1])
+  suppressWarnings(try(close.connection(con), silent=TRUE))
+  ifelse(is.null(check), FALSE, TRUE)
 }