From ba96092decc3e3f2c2f376f9a1ac14ff0330dd10 Mon Sep 17 00:00:00 2001
From: LE DURAND Matteo <matteo.le-durand@developpement-durable.gouv.fr>
Date: Tue, 18 Mar 2025 11:08:32 +0100
Subject: [PATCH] ajout du filtre CSD sur l'annuaire + etiquette qui rassemble
 topics et groupe

---
 global.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/global.R b/global.R
index f93b16e..3643d78 100644
--- a/global.R
+++ b/global.R
@@ -33,6 +33,7 @@ email_table <- read_csv("annuaire/email_total.csv")
 annuaire <- read_csv("annuaire/annuaire.csv")
 annuaire$Messagerie <- tolower(annuaire$Messagerie)
 annuaire <- annuaire %>% rename( email = Messagerie)
+annuaire <- annuaire %>%  filter( str_detect(Unité,"CSD" ) )
 annuaire <- annuaire %>% mutate(auteur = paste(Prénom, Nom))%>% select(email, auteur)
 
 all_data <- bind_rows(all_data_gitlab, all_data_forge, combined_data)
@@ -42,6 +43,7 @@ all_data <- all_data %>% mutate(message = paste0(type,sep = "  : ",message))
 all_data <- all_data %>% left_join(email_table) # nettoyage de certaine adresse mail invalide
 all_data <- all_data %>% left_join(annuaire) # ajout de auteur des membre du SCTE via l'annuaire
 
+all_data <- all_data %>% dplyr::mutate(etiquette = paste(groupe,topics,sep = ","))
 
 # transformation re_code ----
 traduction <- c(
-- 
GitLab