From 0988fa5f669e61a141e8fd5f362043fbe439fb59 Mon Sep 17 00:00:00 2001
From: dieghernan <diego.hernangomezherrero@gmail.com>
Date: Thu, 1 Aug 2024 08:09:44 +0000
Subject: [PATCH] Update countries and nuts

---
 NEWS.md                                   |   2 ++
 data/gisco_db.rda                         | Bin 988 -> 988 bytes
 man/gisco_get.Rd                          |   2 +-
 man/gisco_get_nuts.Rd                     |   2 +-
 man/gisco_get_units.Rd                    |   2 +-
 tests/testthat/test-gisco_get_countries.R |   9 ++++++++
 tests/testthat/test-gisco_get_nuts.R      |   8 +++++++
 vignettes/articles/nuts_codes.Rmd         |  25 ++++++++++++++++++----
 8 files changed, 43 insertions(+), 7 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index 40532dc6..f6fa01c1 100644
--- 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
index 2291016504111e4435e97f30eded06de60d0d57f..9bfb968105468381d96c5b6bbf1aceaa25a5dcd8 100644
GIT binary patch
delta 823
zcmV-71IYZ`2iymc8Uv*RpphM%f0~o=)Sk!t+B;jbj}=}`$ISwJ7twA*(NCY1@bu}<
zRGn=5@=8QC;Xu-YxiXHU=Qm2KJRWEQvlr=r08Cbo=bTk^u}*zq$ZO|Q`Z$8xX&T4;
zDp!s#c0MTQg^I~usP-C};&wSy0*R-aVfBhZANMK-#vPrQT3Z=N)!to#e@VS)?1LvL
zQbaM@iblZEQ?HwAW`nPf@a|5Y_-Z>n*wls_X}>s4Z$*ZR1@~hgI3eDjCA`WD%n&l>
zl(yyD|7y}(Cd18<FuYf9#I~)~D^f1TcuP=e{n*C0$TPkd1XDUjkqCO_Mf9wDcbBO8
zyzLKSTypn$(U@Yjs3%bpf1*CrFPc|2cns_}O(RDYkOX_QER(YpmI2`P;noCVfucHX
zzQ|T`&)I&0<X2c}>@fV&8tV4F6GhDqLXy}Z+(}1ieeFR}c+*m74EYmF!CF2Jrv$AT
zz&1GoHw}DuCo9j7X<RKcpDi)e1`xKd+!o-kOF5i+!hFJx?Y-xgf9$&BRjF?nP%mzj
z1_tUzR(gTf)~{>9DApFnt0%UyJCvl%!}GzqGdI&*{VWH<cwdN;w_F1a`&sh3Ukpx~
z-3>h%N$=DzCNL38JDgOYt$|(?ahkD^wVIElX_2+GVm+~BOw|qE9|D^CnoSq3hGoM4
z;in2%ry9ICwckXye}fFtJX@DM#T}So9ko@2-xmWR(23R&?11b!^>e&5ob)I|%5V;&
zf?kZEKc^5mi4@<Vr9Byy!|jwbMYN8!w&Q))p6Ei|2FVZ9@tu=BTJ-Y0^Ek8ta!I4G
z6t}0NqbZ~i5@m7TFS<zjZH6@L2CdS_>F)Or%TFnwUNoyge=<NW{${oZAw6{JBU`;G
z%>Kyv@WOZjJ^;H7>IrV6@<4*Do4ctjrRgYO?z|Xg_GaRycvz(LDF)eR_>Z-hs7r&l
z2#(EDhSBvY&)YUA-4P*S`rtfc-WN@kOj63y_sbin{|{V!+&Tr)t~j|87B&5eI*gLv
zou$VKP#Q|?DT1nh&`qL5!JP&O004_AR7C&*xCf?V004EWeWgAy4T}N*00001Sz1^l
Bl6?RG

delta 823
zcmV-71IYZ`2iymc8UscHpOGD$e|Q3i%;Sp?oh5fScW^j`qg=X^GFb*C3#k>=QH70k
zpcwzKf;9eP*zQCeSA3R&={9t{#L%qYl^1z?U6bbZ=UHWm;j8ro&ekO>i68=UUjMj1
zr@tM@h)`h)*sTJDlBVAyo|lAT2x)tT`yI1}`wJ#M0n}>LeFmqXPTUw<fAJ##@4BbJ
z(S>GAHNdczqrton{GRp*)uNfzx{_hJm>+OFWpz~&YJ^_QfA<oW!=Ui!0HF3PT&c0_
zb5fNFQuW?uLFTV*8<6Uo1}v=!3o&2t;bDEt!qqa+%_v!T^7$d?E8}($$wsacogcIE
zl+2xeXLYg-0573gu6s0Wf8lk(4t^wdBh-zqSq(|Ijl&Wz)T&Rxb)ZkoG`m=mG7#kX
zz^&4X^eKpp(!(NPd710XiiYTkH`4A47bRqa3EV1{6>b)85UxU2^>%x+_EBoNf$riX
zIs^9>Ci8u7<}gULeV%W#XM;ju3ba%|zN8pKaNt%-BtZgQaO;jYe~wwRx*n#TPsH|>
zSY$j#AU*QByGk3snh!C+cwBN%9F2+$wHZIW+i`wnal0{Tl*~0M>d#D%_u=W!-~HS{
zqerN97hLr*6-g8qWty|p0)~f&&%E5_N6=A+Ub57i{zDt*LS#Y?Ju`y1yzPOfF^6~F
zi&wUihEcv8=jW|`f00tByby^wa>|_f+BM9(I%Lju{p#AM*4b<6ZowpCa?xX~=>&1i
zrda8F0ZalQeD4^8Vh<Kz(D{NhVsEny-Iu8r%Cf$pOkEn~<svZA?IDy_ZZOeDgg?<+
z{C>G1sijp^u)ldhE#|sv=_;eM%UR<%<n1c#shjRLBoWg>f1&EdY0$IT%m_x&xm3;6
zhcb(;3j>3^)lu^1qAX8+Lmtli+P$i`ITFQmUh~jN1d`E>hUyF_!!J>mO;Jy2_E#O3
zp9;v*x{9Y^m7tHBmLA|RNHvRwJ|E0BM%^AQ=J#lItS4F}kERaS)s`mczIEW`3~y{p
z^3y*F8leJ4DQrUwW}0Tm4*(<p002lrIm`e7w+F{!008mgbJjjE4T}N*00001Sy~NY
Bl_3BC

diff --git a/man/gisco_get.Rd b/man/gisco_get.Rd
index 8481a6c5..d4f53ee0 100644
--- a/man/gisco_get.Rd
+++ b/man/gisco_get.Rd
@@ -22,7 +22,7 @@ gisco_get_countries(
 }
 \arguments{
 \item{year}{Release year of the file. One
-of \code{"2001"}, \code{"2006"}, \code{"2010"}, \code{"2013"}, \code{"2016"} or \code{"2020"}.}
+of \code{"2001"}, \code{"2006"}, \code{"2010"}, \code{"2013"}, \code{"2016"}, \code{"2020"} or \code{"2024"}.}
 
 \item{epsg}{projection of the map: 4-digit \href{https://epsg.io/}{EPSG code}.
 One of:
diff --git a/man/gisco_get_nuts.Rd b/man/gisco_get_nuts.Rd
index 480553c1..7fbdc3ca 100644
--- a/man/gisco_get_nuts.Rd
+++ b/man/gisco_get_nuts.Rd
@@ -23,7 +23,7 @@ gisco_get_nuts(
 }
 \arguments{
 \item{year}{Release year of the file. One
-of \code{"2003"}, \code{"2006"}, \code{"2010"}, \code{"2013"}, \code{"2016"} or \code{"2021"}.}
+of \code{"2003"}, \code{"2006"}, \code{"2010"}, \code{"2013"}, \code{"2016"}, \code{"2021"} or \code{"2024"}.}
 
 \item{epsg}{projection of the map: 4-digit \href{https://epsg.io/}{EPSG code}.
 One of:
diff --git a/man/gisco_get_units.Rd b/man/gisco_get_units.Rd
index 22396125..2f1ca97d 100644
--- a/man/gisco_get_units.Rd
+++ b/man/gisco_get_units.Rd
@@ -31,7 +31,7 @@ gisco_get_units(
 or \code{"df"}. See \strong{Value} and \strong{Details}.}
 
 \item{year}{Release year of the file. One
-of \code{"2001"}, \code{"2006"}, \code{"2010"}, \code{"2013"}, \code{"2016"} or \code{"2020"}.}
+of \code{"2001"}, \code{"2006"}, \code{"2010"}, \code{"2013"}, \code{"2016"}, \code{"2020"} or \code{"2024"}.}
 
 \item{epsg}{projection of the map: 4-digit \href{https://epsg.io/}{EPSG code}.
 One of:
diff --git a/tests/testthat/test-gisco_get_countries.R b/tests/testthat/test-gisco_get_countries.R
index d8a0a580..cdbe516b 100644
--- 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
index dcd91294..c9afc99f 100644
--- 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
index a2d621ca..c226ac80 100644
--- 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,