From c6278ae91968e54250c6190a7b064c0647f622c0 Mon Sep 17 00:00:00 2001
From: Diego H <diego.hernangomezherrero@gmail.com>
Date: Fri, 18 Feb 2022 15:01:49 +0100
Subject: [PATCH] Add skips on EU grids

---
 R/esp_get_grid_EEA.R                     | 2 +-
 R/esp_get_grid_ESDAC.R                   | 2 +-
 man/esp_get_grid_EEA.Rd                  | 2 +-
 man/esp_get_grid_ESDAC.Rd                | 2 +-
 tests/testthat/test-esp_get_grid_EEA.R   | 2 ++
 tests/testthat/test-esp_get_grid_ESDAC.R | 2 ++
 6 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/R/esp_get_grid_EEA.R b/R/esp_get_grid_EEA.R
index 73495414..72cf7f2b 100644
--- a/R/esp_get_grid_EEA.R
+++ b/R/esp_get_grid_EEA.R
@@ -19,7 +19,7 @@
 #'
 #' @inheritSection esp_get_nuts About caching
 #' @examplesIf esp_check_access()
-#' \donttest{
+#' \dontrun{
 #'
 #' grid <- esp_get_grid_EEA(type = "main", resolution = 100)
 #' grid_can <- esp_get_grid_EEA(type = "canary", resolution = 100)
diff --git a/R/esp_get_grid_ESDAC.R b/R/esp_get_grid_ESDAC.R
index b30bd4a9..2fa271d0 100644
--- a/R/esp_get_grid_ESDAC.R
+++ b/R/esp_get_grid_ESDAC.R
@@ -27,7 +27,7 @@
 #'
 #' @inheritSection esp_get_nuts About caching
 #' @examplesIf esp_check_access()
-#' \donttest{
+#' \dontrun{
 #' grid <- esp_get_grid_ESDAC()
 #' esp <- esp_get_country(moveCAN = FALSE)
 #'
diff --git a/man/esp_get_grid_EEA.Rd b/man/esp_get_grid_EEA.Rd
index 8b2827cf..c6c6eec1 100644
--- a/man/esp_get_grid_EEA.Rd
+++ b/man/esp_get_grid_EEA.Rd
@@ -49,7 +49,7 @@ corresponding .geojson file by any other method and save it on your
 
 \examples{
 \dontshow{if (esp_check_access()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
-\donttest{
+\dontrun{
 
 grid <- esp_get_grid_EEA(type = "main", resolution = 100)
 grid_can <- esp_get_grid_EEA(type = "canary", resolution = 100)
diff --git a/man/esp_get_grid_ESDAC.Rd b/man/esp_get_grid_ESDAC.Rd
index 70a5a238..4379dafb 100644
--- a/man/esp_get_grid_ESDAC.Rd
+++ b/man/esp_get_grid_ESDAC.Rd
@@ -45,7 +45,7 @@ corresponding .geojson file by any other method and save it on your
 
 \examples{
 \dontshow{if (esp_check_access()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
-\donttest{
+\dontrun{
 grid <- esp_get_grid_ESDAC()
 esp <- esp_get_country(moveCAN = FALSE)
 
diff --git a/tests/testthat/test-esp_get_grid_EEA.R b/tests/testthat/test-esp_get_grid_EEA.R
index a037fe52..5183ad1b 100644
--- a/tests/testthat/test-esp_get_grid_EEA.R
+++ b/tests/testthat/test-esp_get_grid_EEA.R
@@ -6,6 +6,8 @@ test_that("Errors", {
 test_that("EEA grid online", {
   skip_on_cran()
   skip_if_siane_offline()
+  skip_on_ci()
+  skip_on_covr()
 
   expect_message(
     esp_get_grid_EEA(
diff --git a/tests/testthat/test-esp_get_grid_ESDAC.R b/tests/testthat/test-esp_get_grid_ESDAC.R
index df8abe70..02b93303 100644
--- a/tests/testthat/test-esp_get_grid_ESDAC.R
+++ b/tests/testthat/test-esp_get_grid_ESDAC.R
@@ -5,6 +5,8 @@ test_that("Errors", {
 test_that("ESDAC grid online", {
   skip_on_cran()
   skip_if_siane_offline()
+  skip_on_ci()
+  skip_on_covr()
 
   expect_message(
     esp_get_grid_ESDAC(