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(