R/check_internet.R

Defines functions check_internet

check_internet <- function(){
  if(!any(c(
    curl::has_internet(),
    RCurl::url.exists("https://zenodo.org/", timeout.ms = 5000)
  ))){
    return(FALSE)
  } else {
    return(TRUE)
  }
}

Try the zendown package in your browser

Any scripts or data that you put into this service are public.

zendown documentation built on May 29, 2024, 4:12 a.m.