tests/testthat/skip_if_net_down.R

In maurolepore/ghr: Explore and Access GitHub Directories

has_internet <- function() {
  z <- try(suppressWarnings(readLines("https://www.google.com", n = 1)),
    silent = TRUE
  )
  !inherits(z, "try-error")
}

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