Update countries and nuts

rOpenGov · Aug 1, 2024 · 0988fa5 · 0988fa5
1 parent dfb1285
commit 0988fa5
Show file tree

Hide file tree

Showing 8 changed files with 43 additions and 7 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -4,6 +4,8 @@
 
 -   `gisco_get_education()` and `gisco_get_healthcare()` gains a new `year`
     argument: years available now are 2020 and 2023 versions of the dataset.
+-   `gisco_get_nuts()` and `gisco_get_countries()` now can download the 2024
+    version of the datasets.
 
 # giscoR 0.5.1
 

diff --git a/data/gisco_db.rda b/data/gisco_db.rda
diff --git a/man/gisco_get.Rd b/man/gisco_get.Rd
diff --git a/man/gisco_get_nuts.Rd b/man/gisco_get_nuts.Rd
diff --git a/man/gisco_get_units.Rd b/man/gisco_get_units.Rd
diff --git a/tests/testthat/test-gisco_get_countries.R b/tests/testthat/test-gisco_get_countries.R
@@ -44,6 +44,15 @@ test_that("Countries online", {
     cache = FALSE
   ))
 
+  expect_silent(
+    gisco_get_countries(
+      year = 2024,
+      spatialtype = "BN",
+      resolution = 60,
+      cache = TRUE
+    )
+  )
+
   expect_silent(gisco_get_countries(
     spatialtype = "COASTL",
     country = c("ESP", "ITA")

diff --git a/tests/testthat/test-gisco_get_nuts.R b/tests/testthat/test-gisco_get_nuts.R
@@ -95,6 +95,14 @@ test_that("NUTS online", {
   expect_equal(epsg3035, sf::st_crs(a))
   expect_equal(epsg3857, sf::st_crs(b))
   expect_equal(epsg4326, sf::st_crs(c))
+
+  expect_silent(aa <-
+    gisco_get_nuts(
+      year = 2024,
+      resolution = "60",
+      nuts_level = "0",
+      nuts_id = "ES5"
+    ))
 })
 
 

diff --git a/vignettes/articles/nuts_codes.Rmd b/vignettes/articles/nuts_codes.Rmd
@@ -12,17 +12,34 @@ knitr::opts_chunk$set(
   message = FALSE,
   out.width = "100%"
 )
+
+library(giscoR)
+library(reactable)
 ```
 
 Annex with the [NUTS codes](https://ec.europa.eu/eurostat/web/nuts/overview)
-(version **2021**, **2016** and **2013**) available in **giscoR**.
+(version **2024**, **2021**, **2016** and **2013**) available in **giscoR**.
+
+## NUTS 2024
+
+```{r nuts24, echo=FALSE}
+df <- gisco_get_nuts(year = 2024, resolution = 60)
+df <- sf::st_drop_geometry(df)
+reactable(df,
+  elementId = "NUTS2024",
+  filterable = TRUE,
+  searchable = TRUE,
+  defaultColDef = colDef(minWidth = 120),
+  showPageSizeOptions = TRUE,
+  striped = TRUE,
+  paginationType = "jump",
+  defaultSorted = c("LEVL_CODE", "CNTR_CODE")
+)
+```
 
 ## NUTS 2021
 
 ```{r nuts21, echo=FALSE}
-library(giscoR)
-library(reactable)
-
 df <- gisco_get_nuts(year = 2021, resolution = 60)
 df <- sf::st_drop_geometry(df)
 reactable(df,