R/check_internet.R

In ymansiaux/xtradata: Interrogation des Webservices Xtradata

#' Check if the user has an Internet connexion
#'
#' @return a boolean
#' @export
#' @importFrom curl has_internet
#' @importFrom assertthat assert_that
#' @examples
#' check_internet()
check_internet <- function() {
  assert_that(has_internet(), msg = "No Internet connexion was found")

  # requete <- GET("http://www.google.com")
  # assert_that(
  #   status_code(requete) == 200,
  #   msg = "No Internet connexion was found"
  # )
}