Update R/readepi_helpers.R

add `fixed = TRUE` at line 147 in url_check() Co-authored-by: Hugo Gruson <10783929+Bisaloo@users.noreply.github.com>
epiverse-trace · Feb 19, 2024 · b24e7e5 · b24e7e5
1 parent 2294b42
commit b24e7e5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/readepi_helpers.R b/R/readepi_helpers.R
@@ -144,7 +144,7 @@ url_check <- function(base_url) {
  null.ok = FALSE)
  regex <- "^(https?://)?(www\\.)?([a-z0-9]([a-z0-9]|(\\-[a-z0-9]))*\\.)+[a-z]+$" # nolint: line_length_linter
  domain <- strsplit(gsub("^(https?://)?(www\\.)?", "", base_url),
- "/")[[c(1L, 1L)]] # nolint: fixed_regex_linter
+ "/", fixed = TRUE)[[c(1L, 1L)]]
  stopifnot("Incorrect domain name in provided URL!" = grepl(regex, domain))
  return(invisible(TRUE))
 }