tests/testthat/helper-finch.R

ping_internet <- function() {
  w <- url('https://httpbin.org/get')
  res <- tryCatch(suppressWarnings(readLines(w)), error = function(e) e)
  on.exit(close(w))
  !inherits(res, "error")
}
ropensci/finch documentation built on Sept. 12, 2022, 7:56 a.m.