From 8fd105052d98fc3cb8fe9bd25571e31866c37d8c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luise=20Quo=C3=9F?= Date: Wed, 10 Jul 2024 12:35:38 +0200 Subject: [PATCH] lint new helper function --- R/ebv_utils.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/ebv_utils.R b/R/ebv_utils.R index 97d3094..e6d05a9 100644 --- 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) }