From 674b18527c917c159c6dbefdafdd883621f90faf Mon Sep 17 00:00:00 2001
From: David Nortes-Martinez <davidnortes@gmail.com>
Date: Thu, 20 Jan 2022 19:26:54 +0100
Subject: [PATCH] Treatment for the hydrographic network dataset
---
geau/data-raw/so_ii_hydro.R | 26 ++++++++++++++++++++++++++
1 file changed, 26 insertions(+)
create mode 100644 geau/data-raw/so_ii_hydro.R
diff --git a/geau/data-raw/so_ii_hydro.R b/geau/data-raw/so_ii_hydro.R
new file mode 100644
index 0000000..13ddf91
--- /dev/null
+++ b/geau/data-raw/so_ii_hydro.R
@@ -0,0 +1,26 @@
+# code to prepare `so_ii_hydro` dataset goes here
+
+selection = c("gid", "CdOH", "TopoOH")
+version = current_version("data-common/so-ii/topage",
+ pattern = "^[0-9]")
+so_ii_hydro = sf::st_read(file.path(version, "cours-eau-so-ii.shp"))[selection]
+so_ii_hydro = sf::st_transform(so_ii_hydro, sf::st_crs(geau::so_ii_limit))
+
+classif_hydro = read.csv2(
+ current_version("data-common/so-ii/topage", pattern = "courseau"),
+ colClasses = "character",
+ row.names = 1
+)
+
+so_ii_hydro = merge(
+ so_ii_hydro, classif_hydro,
+ by.x = selection,
+ by.y = c("id_1", "id_2", "cours_eau")
+ )
+
+# updating datasets
+
+# actual = setwd(file.path(system.file(package = "geau"), ".."))
+actual = setwd("geau")
+usethis::use_data(so_ii_hydro, internal = FALSE, overwrite = TRUE)
+setwd(actual)
--
GitLab