Skip to content
Snippets Groups Projects
Commit 038062a9 authored by ronan.vignard's avatar ronan.vignard
Browse files

Merge branch 'dev' into 'main'

Correctifs mineurs et passage en v1.3.1

See merge request !55
parents a2c7ba81 01388851
No related branches found
No related tags found
1 merge request!55Correctifs mineurs et passage en v1.3.1
Pipeline #406828 passed
Package: data.captages
Title: Collecte Des Points De Captages Et Des Stations De Mesure
Version: 1.3.0
Version: 1.3.1
Authors@R:
person("Ronan", "Vignard", , "ronan.vignard@developpement-durable.gouv.fr", role = c("aut", "cre"),
comment = c(ORCID = "0000-0000-0000-0000"))
......
# data.captages 1.3.1
- Ajout d'un filtre sur les stations ESU pour ne conserver que celles intersectant les SAGE de la région
# data.captages 1.3.0
- Remplacement de la source Hub'eau par une source SANDRE pour les stations ESU
......
......@@ -160,7 +160,8 @@ station_esu <- station_esu |>
dplyr::mutate(code_sage = tidyr::replace_na(code_sage, "SAGE00000"))
```
Vérification des objets sf
# Intersection des stations ESU avec les SAGE de la région
Vérification des objets sf :
```{r st_as_sf, eval=FALSE}
# Vérifier que les deux dataframes sont en format 'sf'
station_esu <- sf::st_as_sf(station_esu)
......@@ -168,7 +169,7 @@ n_sage_r52f <- sf::st_as_sf(n_sage_r52)
```
Sélection des stations SANDRE présentes dans les SAGE de la région :
Sélection des stations ESU présentes dans les SAGE de la région :
```{r st_intersects_stations_sage, eval=FALSE}
# Filtrer les stations ESU présentes dans les SAGE de la région
station_in_sage <- sf::st_filter(station_esu, n_sage_r52)
......
......@@ -78,7 +78,7 @@ names(data_ars_not_sandre) <- gsub("\\.x$", "",
# Consolidation des stations SANDRE
sélection des variables et ajout de la source :
Sélection des variables et ajout de la source :
```{r consolidate-stations_hubeau, eval = FALSE}
stations_esu_sandre <- data_sandre |>
......@@ -173,6 +173,25 @@ station_esu <- station_esu |>
dplyr::mutate(code_sage = tidyr::replace_na(code_sage, "SAGE00000"))
```
# Intersection des stations ESU avec les SAGE de la région
Vérification des objets sf :
```{r st_as_sf, eval = FALSE}
# Vérifier que les deux dataframes sont en format 'sf'
station_esu <- sf::st_as_sf(station_esu)
n_sage_r52f <- sf::st_as_sf(n_sage_r52)
```
Sélection des stations ESU présentes dans les SAGE de la région :
```{r st_intersects_stations_sage, eval = FALSE}
# Filtrer les stations ESU présentes dans les SAGE de la région
station_in_sage <- sf::st_filter(station_esu, n_sage_r52)
```
# Ajout des champs `code_bassin_versant`, `code_masse_eau`, `code_eu_masse_eau` par station
Chargement de la table des bassins versants du bassin Loire-Bretagne :
......@@ -189,7 +208,7 @@ Requête spatiale pour la jointure des champs `code_bassin_versant`, `code_masse
```{r update-codes-bassin-versant-masse-eau, eval = FALSE}
# Réaliser une jointure spatiale
station_esu <- station_esu |>
station_esu <- station_in_sage |>
sf::st_join(n_bassin_versant_specifique_loire_bretagne |>
dplyr::select(code_bassin_versant = code_bassin_versant_specifique,
code_masse_eau,
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment