Function tests pass without internet connection

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

Hide file tree

Showing 9 changed files with 19 additions and 17 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -73,6 +73,7 @@ Imports:
     tibble,
     tidyr
 Suggests:
+    covr,
     Cairo,
     ggplot2,
     knitr,

diff --git a/R/eurostat-package.R b/R/eurostat-package.R
@@ -4,7 +4,7 @@
 #' Package: \tab eurostat\cr
 #' Type: \tab Package\cr
 #' Version: \tab See sessionInfo() or DESCRIPTION file\cr
-#' Date: \tab 2014-2020\cr
+#' Date: \tab 2014-2021\cr
 #' License: \tab BSD_2_clause + LICENSE\cr
 #' LazyLoad: \tab yes\cr
 #' }

diff --git a/R/get_eurostat_dic.R b/R/get_eurostat_dic.R
@@ -11,11 +11,12 @@
 #'          \code{\link{search_eurostat}}.
 #' @references See citation("eurostat"). 
 #' @author Przemyslaw Biecek and Leo Lahti \email{leo.lahti@@iki.fi}. Thanks to Wietse Dol for contributions. 
-#' @examples \dontrun{
-#' 	       tmp <- get_eurostat_dic("crop_pro")
-#' 	       head(tmp)
-#' 	       tmp <- get_eurostat_dic("crop_pro", lang = "fr")
-#'	     }
+#' @examples 
+#' \dontrun{
+#' tmp <- get_eurostat_dic("crop_pro")
+#' head(tmp)
+#' tmp <- get_eurostat_dic("crop_pro", lang = "fr")
+#' }
 #'	     
 #' @importFrom readr read_tsv cols col_character
 #'	     

diff --git a/R/get_eurostat_geospatial.R b/R/get_eurostat_geospatial.R
@@ -60,7 +60,7 @@
 #'                                 nuts_level = "3")
 #' }
 #' 
-#'   \dontrun{
+#' \dontrun{
 #'     # -------------------------------------------------------------------
 #'     # Minimal example to demonstrate reason/effect of 'make_valid = TRUE'
 #'     # Spatial data set; rectangle spanning the entire globe with a constant value of 1L.
@@ -99,8 +99,8 @@ get_eurostat_geospatial <- function(output_class = "sf",
                                     resolution = "60",
                                     nuts_level = "all", year = "2016",
                                     cache = TRUE, update_cache = FALSE,
-                                    cache_dir = NULL, crs = "4326",
-				                            make_valid = FALSE){
+                                    cache_dir = NULL, crs = "4326", 
+                                    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. 

diff --git a/R/get_eurostat_json.R b/R/get_eurostat_json.R
@@ -40,7 +40,7 @@
 #' @author Przemyslaw Biecek, Leo Lahti, Janne Huovari and Markus Kainu
 #' @references See citation("eurostat").
 #' @examples
-#'  \dontrun{
+#' \dontrun{
 #'    tmp <- get_eurostat_json("cdh_e_fos")
 #'    # nama_gdp_c has been discontinued since 2/2018 and this example has ceased working.
 #'    yy <- get_eurostat_json(id = "nama_gdp_c", filters = list(geo=c("EU28", "FI"),

diff --git a/man/eurostat-package.Rd b/man/eurostat-package.Rd
diff --git a/man/get_eurostat_dic.Rd b/man/get_eurostat_dic.Rd
diff --git a/man/get_eurostat_geospatial.Rd b/man/get_eurostat_geospatial.Rd
diff --git a/man/get_eurostat_json.Rd b/man/get_eurostat_json.Rd