Devel

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: eurostat
 Type: Package
 Title: Tools for Eurostat Open Data
-Date: 2021-05-12
-Version: 3.7.5
+Date: 2021-06-20
+Version: 3.7.6
 Encoding: UTF-8
 Authors@R: 
     c(person(given = "Leo",
@@ -70,7 +70,9 @@ Imports:
     stringi,
     stringr,
     tibble,
-    tidyr
+    tidyr,
+    regions,
+    rlang
 Suggests:
     covr,
     Cairo,
@@ -83,7 +85,8 @@ Suggests:
     testthat,
     tmap,
     usethis,
-    sf
+    sf,
+    here
 LazyData: true
 URL: https://ropengov.github.io/eurostat/
 BugReports: https://github.com/ropengov/eurostat/issues

NAMESPACE

@@ -31,20 +31,10 @@ importFrom(broom,tidy)
 importFrom(classInt,classIntervals)
 importFrom(countrycode,countrycode)
 importFrom(curl,curl_download)
-importFrom(dplyr,add_count)
-importFrom(dplyr,anti_join)
-importFrom(dplyr,arrange)
 importFrom(dplyr,case_when)
 importFrom(dplyr,coalesce)
-importFrom(dplyr,distinct)
 importFrom(dplyr,filter)
-importFrom(dplyr,full_join)
-importFrom(dplyr,inner_join)
-importFrom(dplyr,left_join)
 importFrom(dplyr,mutate)
-importFrom(dplyr,mutate_if)
-importFrom(dplyr,rename)
-importFrom(dplyr,semi_join)
 importFrom(httr,content)
 importFrom(httr,http_error)
 importFrom(jsonlite,fromJSON)
@@ -58,6 +48,9 @@ importFrom(methods,as)
 importFrom(readr,col_character)
 importFrom(readr,cols)
 importFrom(readr,read_tsv)
+importFrom(regions,recode_nuts)
+importFrom(regions,validate_nuts_regions)
+importFrom(rlang,.data)
 importFrom(stringi,stri_extract_first_regex)
 importFrom(stringr,str_replace_all)
 importFrom(tibble,as_tibble)

NEWS

@@ -1,3 +1,8 @@
+# eurostat 3.7.5
+
+ * Deprecated add_nuts_level, harmonize_geo_code, recode_to_nuts_2016 and recode_to_nuts_2013; these functions were moved to the
+    new package regions. The problem of sub-national geo codes is explained in the new vignette "Mapping Regional Data, Mapping Metadata Problems", which replaces the "Regional data  examples for the eurostat R package" vignette. This is a shared vignette, but the new regions package has more articles on how to work with sub-national data. 
+
 # eurostat 3.7.2
 
  * Non-intersecting sf-geometries in get_eurostat_geospatial (PR by @retostauffer)

R/deprecated_regions_functions.R

@@ -0,0 +1,194 @@
+#' DEPRECATED FUNCTIONS FOR BACKWARD COMPATIBILITY
+#' FUNCTIONS GIVE WARNING AND CALL APPROPRIATE regions FUNCTIONS
+
+#' @title Add the statistical aggregation level to data frame
+#' @description Eurostat regional statistics contain country, and various
+#' regional level information.  In many cases, for example, when mapping,
+#' it is useful to filter out national level data from NUTS2 level regional data,
+#' for example. 
+#' 
+#' This function will be deprecated. Use the more comprehensive
+#' \code{regions::\link[regions]{validate_nuts_regions}} instead.
+#'  
+#' @param dat A data frame or tibble returned by \code{\link{get_eurostat}}.
+#' @param geo_labels A geographical label, defaults to \code{geo}.
+#' @author Daniel Antal
+#' @return a new numeric variable nuts_level with the numeric value of
+#' NUTS level 0 (country), 1 (greater region),
+#' 2 (region), 3 (small region).
+#' @examples
+#'  {
+#'    dat = data.frame (
+#'         geo    = c("FR", "IE04", "DEB1C"), 
+#'         values = c(1000, 23, 12)
+#'    )
+#'    
+#'    add_nuts_level(dat)
+#'  }
+#'  
+#' @importFrom dplyr mutate case_when
+#' @importFrom rlang .data
+#' @importFrom magrittr %>%
+#'  
+#' @export
+
+add_nuts_level <- function (dat, geo_labels = "geo") {
+
+  message ("This function will be deprecated. Use regions::validate_nuts_regions() instead.") 
+
+  if ( any(c("character", "factor") %in% class(dat)) ) {
+    input <- 'label'
+    geo <- dat 
+    dat <- data.frame( geo = as.character(geo), 
+                       stringsAsFactors = FALSE)
+  } else { 
+    input <- "not_label" 
+  }
+
+
+  if ( "data.frame" %in% class(dat) ) {
+    if ( ! geo_labels %in% names(dat) ) {
+      stop ( "Regional labelling variable '",
+             geo_labels,
+             "' is not found in the data frame.")
+    }
+
+    dat <- dat %>% 
+      dplyr::mutate ( nuts_level = dplyr::case_when (
+        nchar(as.character(.data$geo)) == 2  ~ 0,
+        nchar(as.character(.data$geo)) == 3  ~ 1,
+        nchar(as.character(.data$geo)) == 4  ~ 2,
+        nchar(as.character(.data$geo)) == 5  ~ 3,
+        TRUE ~ NA_real_
+      ))
+  } 
+
+  if ( input == "label" ) {
+    as.numeric(dat$nuts_level)
+  } else dat
+
+}
+
+#' @title Harmonize NUTS region codes that changed with the \code{NUTS2016} definition
+#' @description Eurostat mixes \code{NUTS2013} and \code{NUTS2016} geographic
+#' label codes in the \code{'geo'} column, which creates time-wise comparativity issues.
+#' This deprecated function checke if you data is affected by this problem and gives
+#' information on what to do.
+#' 
+#' This function is deprecated, and a more general function was moved to 
+#' \code{regions::\link[regions]{validate_nuts_regions}}.
+#' 
+#' @param dat A Eurostat data frame downloaded with \code{\link{get_eurostat}}
+#' @export
+#' @author Daniel Antal
+#' @return An augmented data frame that explains potential problems and 
+#' possible solutions.
+#' @importFrom regions validate_nuts_regions
+#' @examples
+#'  \dontrun{
+#'    dat <- eurostat::tgs00026
+#'    regions::validate_nuts_regions(dat)
+#'  }
+#'  
+#' @importFrom regions validate_nuts_regions
+#' @export
+
+harmonize_geo_code <- function (dat) {
+
+  warning("The 'harmonize_geo_code' function is deprecated. Use instead regions::validate_nuts_regions(dat, nuts_year = 2016)")
+
+  regions::validate_nuts_regions(dat, nuts_year = 2016)
+
+}
+
+
+#' @title Recode geo labels and rename regions from NUTS2013 to NUTS2016 
+#' @description Eurostat mixes NUTS2013 and NUTS2016 geographic label codes
+#' in the \code{'geo'} column, which creates time-wise comparativity issues.
+#' 
+#' This function is deprecated, and a more general function was moved to 
+#' \code{regions::\link[regions]{recode_nuts}}.
+#' 
+#' @param dat A Eurostat data frame downloaded with 
+#' \code{\link{get_eurostat}}.
+#' @author Daniel Antal
+#' @return An augmented and potentially relabelled data frame which 
+#' contains all formerly \code{'NUTS2013'} definition geo labels in the 
+#' \code{'NUTS2016'} vocabulary when only the code changed, but the 
+#' boundary did not. It also contains some information on other geo labels
+#' that cannot be brought to the current \code{'NUTS2016'} definition. 
+#' Furthermore, when the official name of the region changed, it will use
+#' the new name (if the otherwise the region boundary did not change.)
+#' If not called before, the function will use the helper function
+#' \code{\link{harmonize_geo_code}}
+#' @examples
+#' test_regional_codes <- data.frame ( 
+#'   geo = c("FRB", "FRE", "UKN02", "IE022", "FR243", "FRB03"),
+#'   time = c(rep(as.Date ("2014-01-01"), 5), as.Date("2015-01-01")), 
+#'   values = c(1:6), 
+#'   control = c("Changed from NUTS2 to NUTS1", 
+#'               "New region NUTS2016 only", 
+#'               "Discontinued region NUTS2013", 
+#'               "Boundary shift NUTS2013", 
+#'               "Recoded in NUTS2013", 
+#'               "Recoded in NUTS2016"
+#'   )) 
+#'  
+#' recode_to_nuts_2016(test_regional_codes)
+#' 
+#' @importFrom regions recode_nuts
+#' @export
+
+recode_to_nuts_2016 <- function (dat) {
+
+  warning("The 'recode_to_nuts_2013' function is deprecated. Use instead regions::recode_nuts(dat, nuts_year = 2016)")
+
+  regions::recode_nuts(dat, nuts_year = 2016)
+
+}
+
+
+
+#' @title Recode geo labels and rename regions from NUTS2016 to NUTS2013 
+#' @description Eurostat mixes NUTS2013 and NUTS2016 geographic label codes
+#' in the \code{'geo'} column, which creates time-wise comparativity issues.
+#' 
+#' This function is deprecated, and a more general function was moved to 
+#' \code{regions::\link[regions]{recode_nuts}}.
+#' 
+#' @param dat A Eurostat data frame downloaded with 
+#' \code{\link{get_eurostat}}.
+#' @author Daniel Antal
+#' @return An augmented and potentially relabelled data frame which 
+#' contains all formerly \code{'NUTS2013'} definition geo labels in the 
+#' \code{'NUTS2016'} vocabulary when only the code changed, but the 
+#' boundary did not. It also contains some information on other geo labels
+#' that cannot be brought to the current \code{'NUTS2013'} definition. 
+#' Furthermore, when the official name of the region changed, it will use
+#' the new name (if the otherwise the region boundary did not change.)
+#' If not called before, the function will use the helper function
+#' \code{\link{harmonize_geo_code}}
+#' @examples
+#' test_regional_codes <- data.frame ( 
+#'   geo = c("FRB", "FRE", "UKN02", "IE022", "FR243", "FRB03"),
+#'   time = c(rep(as.Date ("2014-01-01"), 5), as.Date("2015-01-01")), 
+#'   values = c(1:6), 
+#'   control = c("Changed from NUTS2 to NUTS1", 
+#'               "New region NUTS2016 only", 
+#'               "Discontinued region NUTS2013", 
+#'               "Boundary shift NUTS2013", 
+#'               "Recoded in NUTS2013", 
+#'               "Recoded in NUTS2016"
+#'   )) 
+#'  
+#' recode_to_nuts_2013(test_regional_codes)
+#' 
+#' @importFrom regions recode_nuts
+#' @export
+
+recode_to_nuts_2013 <- function (dat) {
+
+  warning("The 'recode_to_nuts_2013' function is deprecated. Use instead regions::recode_nuts(dat, nuts_year = 2013)")
+
+  regions::recode_nuts(dat, nuts_year = 2013)
+}