feat: check for urls validity

Author: ArthurData

R/find_invalid_url.R

@@ -0,0 +1,66 @@
+#' @noRd
+extract_urls_from_file <- function(file) {
+  content <- readLines(file, warn = FALSE)
+  url_pattern <- "(http|https)://[a-zA-Z0-9./?=_-]*"
+  urls <- unique(unlist(regmatches(content, gregexpr(url_pattern, content))))
+  names(urls) <- rep(file, length(urls))
+  return(urls)
+}
+
+#' @noRd
+check_url <- function(url) {
+  response <- try(httr::GET(url), silent = TRUE)
+  if (inherits(response, "try-error")) {
+    res <- FALSE
+  }
+
+  res <- httr::status_code(response) == 200
+  res <- stats::setNames(res, url)
+
+  return(res)
+}
+
+#' Check for the validity of the URLs in the R folder
+#'
+#' @param exclude a character vector of urls to exclude
+#'
+#' @return a message if some URLs are invalid
+#' @export
+check_url_validity <- function(exclude = NA_character_) {
+  if (!curl::has_internet()) {
+    cli::cli_alert_info("No internet connection.")
+    return(invisible(FALSE))
+  }
+
+  if (!dir.exists("R")) {
+    cli::cli_alert_info("No R folder found.")
+    return(invisible(FALSE))
+  }
+
+  urls <- purrr::map(
+    files,
+    ~ extract_urls_from_file(file = .x)
+  ) |>
+    unlist() |>
+    purrr::discard(
+      ~ .x %in% exclude
+    ) |>
+    purrr::map(
+      check_url
+    )
+
+  invalid_urls <- urls |>
+    purrr::keep(
+      ~ .x == FALSE
+    )
+
+  if (length(invalid_urls) > 0) {
+    cli::cli_alert_info("Some URLs are invalid.")
+    purrr::walk(
+      invalid_urls,
+      ~ cli::cli_alert_danger(sprintf("URL %s is invalid in file {.file %s}", names(.x), names(invalid_urls)))
+    )
+  } else {
+    cli::cli_alert_success("All URLs are valid.")
+  }
+}

inst/shinyexample/dev/run_dev.R

@@ -8,6 +8,9 @@ options(shiny.port = httpuv::randomPort())
 golem::detach_all_attached()
 # rm(list=ls(all.names = TRUE))
 
+# Check for invalid URLs
+golem::check_url_validity()
+
 # Check for missing namespaces
 golem::check_namespace_sanity(auto_fix = TRUE)