R/hud_check_internet.R

In etam4260/hudr: A R interface for accessing HUD (US Department of Housing and Urban Development) APIs

#' @name is_internet_available
#' @title Check if Internet is Available
#' @description A wrapper around curl::has_internet() to check
#'   if internet is available.
#' @returns TRUE if internet is available, halts execution if not.
is_internet_available <- function() {
  if (!curl::has_internet()) {
    stop("\nYou currently do not have internet access.", call. = FALSE)
  }
  TRUE
}