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

mise à jour de explo_prepa_data.R

parent 0e6bd836
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
...@@ -80,12 +80,11 @@ nitrates_station <- nitrates_station %>% ...@@ -80,12 +80,11 @@ nitrates_station <- nitrates_station %>%
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" "BSS000XXLZ" "BSS000XXXJ"
# [10] "BSS000XXLZ" "BSS000XXXJ" "BSS000XYQY" "BSS000ZRMP" "BSS000ZRWX" "BSS000ZSMH" "BSS000ZSMK" "BSS000ZSZS" "BSS000ZTAB" # [12] "BSS000XYQY" "BSS000ZRMP" "BSS000ZRWX" "BSS000ZSMH" "BSS000ZSMK" "BSS000ZSZS" "BSS000ZTAB" "BSS000ZTJM" "BSS000ZTKU" "BSS000ZWLX" "BSS001BNWY"
# [19] "BSS000ZTJM" "BSS000ZTKU" "BSS000ZWLX" "BSS001BNWY" "BSS001DMXF" "BSS001EUDY" "BSS001EUMJ" "BSS001EYVU" "BSS001FDCD" # [23] "BSS001DLVY" "BSS001DMXF" "BSS001EUDY" "BSS001EUMJ" "BSS001EYVU" "BSS001FDCD" "BSS001HKWP" "BSS001HLXD" "BSS001HMKY" "BSS001JPLC" "BSS001JZRT"
# [28] "BSS001HKWP" "BSS001HLXD" "BSS001HMKY" "BSS001JPLC" "BSS001JZRT" "BSS001LFKF" "BSS001NLEZ" "BSS001NLXS" "044000102" # [34] "BSS001LFKF" "BSS001NLEZ" "BSS001NLXS" "044000102" "044000449" "049000024" "049000388" "049000402" "053000091" "053000106" "085000047"
# [37] "044000449" "049000024" "049000388" "049000402" "053000091" "053000106" "085000047" "085000094" "085000410" # [45] "085000094" "085000410" "085000446"
# [46] "085000446"
dplyr::filter(station_mesure, captage_prioritaire == "TRUE") %>% dplyr::filter(station_mesure, captage_prioritaire == "TRUE") %>%
dplyr::mutate( dplyr::mutate(
...@@ -97,9 +96,8 @@ dplyr::filter(station_mesure, captage_prioritaire == "TRUE") %>% ...@@ -97,9 +96,8 @@ dplyr::filter(station_mesure, captage_prioritaire == "TRUE") %>%
) %>% ) %>%
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" "049000388" "BSS001HMKY"
# [10] "049000388" "BSS001HMKY" "BSS001EYVU" "BSS001JZRT" "BSS001HKWP" "049000402" "049000024" "BSS000ZSZS" "BSS000ZSMH" # [12] "BSS001EYVU" "BSS001JZRT" "BSS001HKWP" "049000402" "049000024" "BSS000ZSZS" "BSS000ZSMH" "BSS001BNWY" "053000091" "053000106" "BSS000ZRWX"
# [19] "BSS001BNWY" "BSS000TRNA" "053000091" "053000106" "035000242" "BSS000ZRWX" "BSS000VVKA" "BSS000ZRMP" "BSS000XWUM" # [23] "BSS000VVKA" "BSS000ZRMP" "BSS000XWUM" "BSS000XWVX" "BSS000ZTAB" "BSS000XXAR" "BSS000ZSMK" "BSS000XXXJ" "BSS000ZTKU" "BSS000XXLZ" "BSS000XWVU"
# [28] "BSS000XWVX" "BSS000ZTAB" "BSS000XXAR" "BSS000ZSMK" "BSS000XXXJ" "BSS000ZTKU" "BSS000XXLZ" "BSS000XWVU" "BSS000VXRH" # [34] "BSS000VXRH" "BSS000XYQY" "BSS000ZTJM" "BSS000VXSR" "BSS000ZWLX" "085000047" "085000410" "085000446" "085000094" "BSS001NLEZ" "BSS001NLXS"
# [37] "BSS000XYQY" "BSS000ZTJM" "BSS000VXSR" "BSS000ZWLX" "085000047" "085000410" "085000446" "085000094" "BSS001NLEZ" # [45] "BSS000TRNA" "035000242" "BSS001DLVY"
# [46] "BSS001NLXS"
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment