Example to \dontrun, avoid tests failing due to connection problems

rOpenGov · May 12, 2021 · 638476a · 638476a
1 parent bd2353c
commit 638476a
Show file tree

Hide file tree

Showing 2 changed files with 31 additions and 25 deletions.
diff --git a/R/get_eurostat_geospatial.R b/R/get_eurostat_geospatial.R
@@ -45,17 +45,20 @@
 #' @author Markus Kainu <markuskainu@gmail.com>
 #' @return a sf, data_frame or SpatialPolygonDataFrame.
 #' @examples
-#'   sf   <- get_eurostat_geospatial(output_class = "sf",
-#'                                   resolution = "60",
-#'                                   nuts_level = "all")
-#'   df   <- get_eurostat_geospatial(output_class = "df",
-#'                                   resolution = "20",
-#'                                   nuts_level = "0")
-#'   \dontrun{
-#'     spdf <- get_eurostat_geospatial(output_class = "spdf",
-#'                                     resolution = "10",
-#'                                     nuts_level = "3")
-#'   }
+#' \dontrun{
+#' sf <- get_eurostat_geospatial(output_class = "sf",
+#'                               resolution = "60",
+#'                               nuts_level = "all")
+#' df <- get_eurostat_geospatial(output_class = "df",
+#'                               resolution = "20",
+#'                               nuts_level = "0")
+#' }
+#'
+#' \dontrun{
+#' spdf <- get_eurostat_geospatial(output_class = "spdf",
+#'                                 resolution = "10",
+#'                                 nuts_level = "3")
+#' }
 #' 
 #'   \dontrun{
 #'     # -------------------------------------------------------------------
@@ -97,7 +100,7 @@ get_eurostat_geospatial <- function(output_class = "sf",
                                     nuts_level = "all", year = "2016",
                                     cache = TRUE, update_cache = FALSE,
                                     cache_dir = NULL, crs = "4326",
-				    make_valid = FALSE){
+				                            make_valid = FALSE){
   # Check if you have access to ec.europe.eu. 
   if (!check_access_to_data()){
     message("You have no access to ec.europe.eu. 
@@ -107,8 +110,8 @@ get_eurostat_geospatial <- function(output_class = "sf",
   eurostat_geodata_60_2016 <- NULL
   LEVL_CODE <- NULL
   utils::data("eurostat_geodata_60_2016", 
-       envir = environment(),
-       package = "eurostat")
+              envir = environment(),
+              package = "eurostat")
 
   # Check output_class is of correct format
   stopifnot(length(output_class) == 1L)

diff --git a/man/get_eurostat_geospatial.Rd b/man/get_eurostat_geospatial.Rd