limited curl::has_internet() to areas where strictly necessary

so that function can also use download.file()

R/get_eurostat.R

@@ -117,10 +117,7 @@ get_eurostat <- function(id, time_format = "date", filters = "none",
                          stringsAsFactors = default.stringsAsFactors(),
                          keepFlags = FALSE, ...){
 
-  # Check if you have internet connection
-  internet_available <- curl::has_internet()
-  if (!internet_available) stop("You have no internet connection, please reconnect!")
-
+
   #Warning for flags with filter
   if (keepFlags & !is.character(filters) && filters != "none") {
     warning("The keepFlags argument of the get_eurostat function can be used only without filters. 

R/get_eurostat_raw.R

@@ -53,3 +53,27 @@ get_eurostat_raw <- function(id) {
 
   dat
 }
+
+
+
+#' @title Check if download.file() can access the internet
+#' @description Check if download.file() can access the internet.
+#' @return A Boolean which corresponds to if base function download.file() can access the internet
+#' @author Colm Bates
+#' @examples
+#'   \dontrun{
+#'     eurostat:::has_internet:::download.file()
+#'     
+#'   }
+
+has_internet_download.file <- function(){ 
+    temp <- tempfile()
+    suppressWarnings(try(download.file("http://captive.apple.com/html", temp, quiet= TRUE), silent = TRUE))
+    if (is.na(file.info(temp)$size)){
+        FALSE
+    }
+    else{
+        data<- readChar(temp, file.info(temp)$size)
+        grepl("Success", readChar(temp, file.info(temp)$size), data)
+    }
+}