diff --git a/R/datamart.R b/R/datamart.R index 2916377818dfed4f74b743b1fcb493a7c319fee2..01d8932c1fed32cd107ef66077557b97a766c78a 100644 --- a/R/datamart.R +++ b/R/datamart.R @@ -69,13 +69,24 @@ sources_des_indic <-metadata_donnee_0 %>% distinct() # ajout des metadonnees hors indicateurs territoriaux -metadata_donnee_0bis <- read.xlsx("R/metadata_donnee_0bis.xlsx") +# recuperation des libellés des variables de chaque table +meta_otelo <- get_cols_comment(schema = "sial_zonages_habitat", table = "r_otelo_epci_r52", db = "production", user = "does") %>% + rename(variable = nom_col, libelle_variable = commentaire) %>% + select (variable,libelle_variable) +meta_objectifs_plh <- get_cols_comment(schema = "sial_zonages_habitat", table = "n_plh_zsup_r52", db = "production", user = "does") %>% + rename(variable = nom_col, libelle_variable = commentaire) %>% + select (variable,libelle_variable) +#regroupement des libellés +regroup_meta <- bind_rows(meta_otelo,meta_objectifs_plh) + +metadata_donnee_0bis <- read.xlsx("R/metadata_donnee_0bis.xlsx") %>% #ouverture du fichier contenant la liste des indicateurs à conserver (équivalent de googlesheet) + left_join(regroup_meta) %>% #ajout des libellés + select(source, variable, libelle_variable, unite, plh, source_propre, source_propre_plh) + +#regroupement avec les données IT issues de googlesheet metadata_donnee_1 <- bind_rows(metadata_donnee_0,metadata_donnee_0bis) %>% arrange(plh) - - - #------------chargement des données--------------------------------------------------------------------------- # chargement des données ------------- diff --git a/R/metadata_donnee_0bis.xlsx b/R/metadata_donnee_0bis.xlsx index 82542463dec4c7306bc3586c416db4aca396bdd1..6f456238dc5faf906f801e41548bae72e14095cb 100644 Binary files a/R/metadata_donnee_0bis.xlsx and b/R/metadata_donnee_0bis.xlsx differ