Skip to content
Snippets Groups Projects
Commit 1acda7a0 authored by Franck.Gaspard's avatar Franck.Gaspard
Browse files

actualisation de explo_prepa_data.R

parent 3bd733e1
No related branches found
No related tags found
2 merge requests!3fusion de dev_actualisation_2024 vers master,!2fusion de actualisation_table_unique_prelevement_analyse vers dev_actualisation_2024
...@@ -6,7 +6,7 @@ rm(list=ls()) ...@@ -6,7 +6,7 @@ rm(list=ls())
nitrate_prelevement_analyse <- datalibaba::importer_data( nitrate_prelevement_analyse <- datalibaba::importer_data(
db = "si_eau", db = "si_eau",
schema = "nitrates", schema = "nitrates",
table = "nitrate_prelevement_analyse_v0_20" table = "nitrate_prelevement_analyse_v0_21"
) # 83882 obs ) # 83882 obs
# names(nitrate_prelevement_analyse) # names(nitrate_prelevement_analyse)
# [1] "code_prelevement_analyse" "code_intervenant" "source" "code_reseau" # [1] "code_prelevement_analyse" "code_intervenant" "source" "code_reseau"
...@@ -77,9 +77,9 @@ nitrates_station <- nitrates_station %>% ...@@ -77,9 +77,9 @@ nitrates_station <- nitrates_station %>%
) %>% ) %>%
dplyr::select(code_station, tidyr::everything()) # 81721 obs dplyr::select(code_station, tidyr::everything()) # 81721 obs
# dplyr::filter(nitrates_station, captage_prioritaire == "TRUE") %>% dplyr::filter(nitrates_station, captage_prioritaire == "TRUE") %>%
# dplyr::pull(code_station) %>% dplyr::pull(code_station) %>%
# unique() unique()
# [1] "035000242" "BSS000TRNA" "BSS000VVKA" "BSS000VXRH" "BSS000VXSR" "BSS000XWUM" "BSS000XWVU" "BSS000XWVX" "BSS000XXAR" # [1] "035000242" "BSS000TRNA" "BSS000VVKA" "BSS000VXRH" "BSS000VXSR" "BSS000XWUM" "BSS000XWVU" "BSS000XWVX" "BSS000XXAR"
# [10] "BSS000XXLZ" "BSS000XXXJ" "BSS000XYQY" "BSS000ZRMP" "BSS000ZRWX" "BSS000ZSMH" "BSS000ZSMK" "BSS000ZSZS" "BSS000ZTAB" # [10] "BSS000XXLZ" "BSS000XXXJ" "BSS000XYQY" "BSS000ZRMP" "BSS000ZRWX" "BSS000ZSMH" "BSS000ZSMK" "BSS000ZSZS" "BSS000ZTAB"
# [19] "BSS000ZTJM" "BSS000ZTKU" "BSS000ZWLX" "BSS001BNWY" "BSS001DMXF" "BSS001EUDY" "BSS001EUMJ" "BSS001EYVU" "BSS001FDCD" # [19] "BSS000ZTJM" "BSS000ZTKU" "BSS000ZWLX" "BSS001BNWY" "BSS001DMXF" "BSS001EUDY" "BSS001EUMJ" "BSS001EYVU" "BSS001FDCD"
...@@ -87,16 +87,16 @@ nitrates_station <- nitrates_station %>% ...@@ -87,16 +87,16 @@ nitrates_station <- nitrates_station %>%
# [37] "044000449" "049000024" "049000388" "049000402" "053000091" "053000106" "085000047" "085000094" "085000410" # [37] "044000449" "049000024" "049000388" "049000402" "053000091" "053000106" "085000047" "085000094" "085000410"
# [46] "085000446" # [46] "085000446"
# dplyr::filter(station_mesure, captage_prioritaire == "TRUE") %>% dplyr::filter(station_mesure, captage_prioritaire == "TRUE") %>%
# dplyr::mutate( dplyr::mutate(
# code_station = dplyr::case_when( code_station = dplyr::case_when(
# nature_eau == "ESU" ~ code_sise_eaux, nature_eau == "ESU" ~ code_sise_eaux,
# nature_eau == "ESO" & is.na(code_bss) | code_bss == "00000X0000" | code_bss == "XXX" ~ code_sise_eaux, nature_eau == "ESO" & is.na(code_bss) | code_bss == "00000X0000" | code_bss == "XXX" ~ code_sise_eaux,
# nature_eau == "ESO" & !is.na(code_bss) ~ code_bss nature_eau == "ESO" & !is.na(code_bss) ~ code_bss
# ) )
# ) %>% ) %>%
# dplyr::pull(code_station) %>% dplyr::pull(code_station) %>%
# unique() unique()
# [1] "BSS001JPLC" "BSS001EUMJ" "044000449" "BSS001EUDY" "044000102" "BSS001DMXF" "BSS001HLXD" "BSS001FDCD" "BSS001LFKF" # [1] "BSS001JPLC" "BSS001EUMJ" "044000449" "BSS001EUDY" "044000102" "BSS001DMXF" "BSS001HLXD" "BSS001FDCD" "BSS001LFKF"
# [10] "049000388" "BSS001HMKY" "BSS001EYVU" "BSS001JZRT" "BSS001HKWP" "049000402" "049000024" "BSS000ZSZS" "BSS000ZSMH" # [10] "049000388" "BSS001HMKY" "BSS001EYVU" "BSS001JZRT" "BSS001HKWP" "049000402" "049000024" "BSS000ZSZS" "BSS000ZSMH"
# [19] "BSS001BNWY" "BSS000TRNA" "053000091" "053000106" "035000242" "BSS000ZRWX" "BSS000VVKA" "BSS000ZRMP" "BSS000XWUM" # [19] "BSS001BNWY" "BSS000TRNA" "053000091" "053000106" "035000242" "BSS000ZRWX" "BSS000VVKA" "BSS000ZRMP" "BSS000XWUM"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment