add check_server

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: easyclimate
 Title: Easy Access to High-Resolution Daily Climate Data for Europe
-Version: 0.1.5
+Version: 0.1.6
 Authors@R: c(
     person("Verónica", "Cruz-Alonso", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-0642-036X")),

NAMESPACE

@@ -1,3 +1,4 @@
 # Generated by roxygen2: do not edit by hand
 
+export(check_server)
 export(get_daily_climate)

NEWS.md

@@ -1,3 +1,7 @@
+# easyclimate 0.1.6
+
+* New function `check_server()` to check that the climate data server is working correctly.
+
 # easyclimate 0.1.5
 
 * Now giving the possibility to download multiple climatic variables at once.

R/check_server.R

@@ -0,0 +1,25 @@
+#' Check climate data server
+#'
+#' Check that the online climate data server is available and working correctly.
+#'
+#' @return TRUE if the server seems available, FALSE otherwise.
+#' @export
+#'
+#' @examples
+#' \dontrun{
+#' check_server()
+#' }
+check_server <- function() {
+
+  cog.url <- build_url(climatic_var_single = "Prcp", year = 2010)
+
+  server.ok <- RCurl::url.exists(cog.url)
+
+  if (isTRUE(server.ok)) {
+    message("The server seems to be running correctly.")
+  } else {
+    message("The server seems unavailable at the moment. Please try later.")
+  }
+
+  return(server.ok)
+}