R/Check_connection.R

In SchoolDataIT: Retrieve, Harmonise and Map Open Data Regarding the Italian School System

#' @keywords internal
#'
Check_connection <- function(autoAbort = FALSE){
  if(!autoAbort){
    while(!curl::has_internet()){
      message("There seems to be no internet connection. Would you wait or abort the operation? \n",
              "    - To hold on for any number of seconds, press the corresponding number \n",
              "    - To abort the operation, press `A`\n")

      holdOn <- readline(prompt = "    ")
      if (toupper(holdOn) == "A") {
        message("You chose to abort the operation. Please try later \n")
        return(FALSE)
      } else {
        n <- as.numeric(holdOn)
        if(is.na(n)) n <- 10
        cat("You chose to wait ", n, " seconds \n")
        Sys.sleep(n)
      }
    }
    return(TRUE)
  } else {
    res <- curl::has_internet()
    if(!res) message("There seems to be no internet connection. Please try later \n")
    return(res)
  }
}