tests/testthat/helper-nomad.R

In reconhub/nomad: Create Portable R Repositories

skip_if_no_internet <- function() {
  if (has_internet()) {
    return()
  }
  testthat::skip("no internet")
}

has_internet <- function() {
  !is.null(suppressWarnings(utils::nsl("www.google.com")))
}

Sys.setenv(R_TESTS = "")

PROGRESS <- FALSE