updated to get always last version of data

6fad1a31 · David Nortes Martínez · 2a38af86 · 6fad1a31
Commit 6fad1a31 authored 3 years ago by David Nortes Martínez
Hide whitespace changes
Inline Side-by-side

Showing

with 6 additions and 2 deletions
+6 -2
--- a/script/classif_bassins.r
+++ b/script/classif_bassins.r
@@ -2,8 +2,12 @@
 library(sf)
 library(geau)

-# loading dataset
-bassin = sf::st_read("/home/dnm/Seafile/data-common/data/topage/bassin_versant/2019/06_RhУne-MВditerranВe_BassinVersantTopographique.shp")
+# loading dataset (last version)
+file_dir = current_version(
+    "data-common/data/topage/bassin_versant",
+    pattern = "^[0-9-]+$"
+)
+bassin = sf::st_read(file.path(file_dir, "06_RhУne-MВditerranВe_BassinVersantTopographique.shp"))

 # checking and adjusting crs (if needed)
 if (!sf::st_crs(bassin) == sf::st_crs(geau::so_ii_limit)) {