From 5dc8dabc5972bec2ce477a3479c65e97bbc27322 Mon Sep 17 00:00:00 2001
From: pitkant <pyry.kantanen@gmail.com>
Date: Wed, 16 Jun 2021 13:50:01 +0300
Subject: [PATCH] Replaced dontrun with more appropriate donttest

---
 NAMESPACE                    | 1 +
 R/impute_down_nuts.R         | 2 +-
 R/validate_geo_code.R        | 2 +-
 R/validate_nuts_regions.R    | 2 +-
 man/impute_down_nuts.Rd      | 2 +-
 man/validate_geo_code.Rd     | 2 +-
 man/validate_nuts_regions.Rd | 2 +-
 7 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index b434490..adc0042 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -34,6 +34,7 @@ importFrom(dplyr,summarize)
 importFrom(dplyr,ungroup)
 importFrom(dplyr,vars)
 importFrom(glue,glue)
+importFrom(here,here)
 importFrom(magrittr,"%>%")
 importFrom(purrr,quietly)
 importFrom(purrr,safely)
diff --git a/R/impute_down_nuts.R b/R/impute_down_nuts.R
index e371061..73ac2c7 100644
--- a/R/impute_down_nuts.R
+++ b/R/impute_down_nuts.R
@@ -42,7 +42,7 @@
 #' @importFrom rlang .data
 #' @importFrom utils data
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' data(mixed_nuts_example)
 #' impute_down_nuts(mixed_nuts_example, nuts_year = 2016)
 #' }
diff --git a/R/validate_geo_code.R b/R/validate_geo_code.R
index 5f87d22..3295b62 100644
--- a/R/validate_geo_code.R
+++ b/R/validate_geo_code.R
@@ -34,7 +34,7 @@
 #' @return A character list with the valid typology, or 'invalid' in the cases
 #' when the geo coding is not valid.
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' my_reg_data <- data.frame (
 #'   geo = c("BE1", "HU102", "FR1",
 #'           "DED", "FR7", "TR", "DED2",
diff --git a/R/validate_nuts_regions.R b/R/validate_nuts_regions.R
index b8e8e21..e511ee7 100644
--- a/R/validate_nuts_regions.R
+++ b/R/validate_nuts_regions.R
@@ -43,7 +43,7 @@
 #' that specifies the comformity with the NUTS definition of the year
 #' \code{nuts_year}.
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' my_reg_data <- data.frame (
 #'   geo = c("BE1", "HU102", "FR1",
 #'           "DED", "FR7", "TR", "DED2",
diff --git a/man/impute_down_nuts.Rd b/man/impute_down_nuts.Rd
index d049510..13368a5 100644
--- a/man/impute_down_nuts.Rd
+++ b/man/impute_down_nuts.Rd
@@ -58,7 +58,7 @@ The imputed dataset \code{dat} must refer to a single time unit, i.e.
 panel data is not supported.
 }
 \examples{
-\dontrun{
+\donttest{
 data(mixed_nuts_example)
 impute_down_nuts(mixed_nuts_example, nuts_year = 2016)
 }
diff --git a/man/validate_geo_code.Rd b/man/validate_geo_code.Rd
index 859acce..0ee8bd2 100644
--- a/man/validate_geo_code.Rd
+++ b/man/validate_geo_code.Rd
@@ -39,7 +39,7 @@ Currently the \code{2016} is used by Eurostat, but many datasets
 still contain \code{2013} and sometimes earlier metadata.
 }
 \examples{
-\dontrun{
+\donttest{
 my_reg_data <- data.frame (
   geo = c("BE1", "HU102", "FR1",
           "DED", "FR7", "TR", "DED2",
diff --git a/man/validate_nuts_regions.Rd b/man/validate_nuts_regions.Rd
index 623280d..f3ef331 100644
--- a/man/validate_nuts_regions.Rd
+++ b/man/validate_nuts_regions.Rd
@@ -48,7 +48,7 @@ Currently the \code{2016} is used by Eurostat, but many datasets
 still contain \code{2013} and sometimes earlier metadata.
 }
 \examples{
-\dontrun{
+\donttest{
 my_reg_data <- data.frame (
   geo = c("BE1", "HU102", "FR1",
           "DED", "FR7", "TR", "DED2",