R/repos_available.R

In envstat: Configurable Reporting on your External Compute Environment

check_cran_mirror <- function(url) {
  version_url <- paste0(url, "/src/contrib/PACKAGES.gz")

  request <- httr2::request(version_url)

  result <- tryCatch(
    httr2::req_perform(httr2::req_error(
      request,
      is_error = function(resp) FALSE
    )),
    error = function(e) NULL
  )
  result_body <- tryCatch(
    httr2::resp_body_json(result, check_type = FALSE),
    error = function(e) NULL
  )

  if (is.null(result)) {
    status <- FALSE
  } else {
    if (result$status_code == 200) {
      status <- TRUE
    } else {
      status <- FALSE
    }
  }

  status
}


check_repos_available <- function(config, silent = FALSE) {
  cli_silencer(
    silent, "cli_h2",
    "Checking configured package repos are available"
  )
  output <- c()
  if ((is.null(config$repos_available)) || (isFALSE(config$repos_available))) {
    cli_silencer(
      silent, "cli_alert_warning",
      "Not enabled - skipping"
    )
    output <- append(output, TRUE)
  } else {
    for (repo in options("repos")$repos) {
      if (repo == "@CRAN@") {
        cli_silencer(
          silent, "cli_alert_danger",
          "No explicitly configured CRAN repo (@CRAN@)"
        )
        output <- append(output, FALSE)
      } else {
        repo_up <- check_cran_mirror(repo)
        if (isTRUE(repo_up)) {
          cli_silencer(
            silent, "cli_alert_success",
            paste0("Package repo available: ", repo)
          )
          output <- append(output, TRUE)
        } else {
          cli_silencer(
            silent, "cli_alert_danger",
            paste0("Error contacting package repo: ", repo)
          )
          output <- append(output, FALSE)
        }
      }
    }
    output
  }
}