intégration des libelles de variables des sources hors Indicateurs territoriaux

Closes #28 (closed)

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 -------------