ajout du filtre CSD sur l'annuaire + etiquette qui rassemble topics et groupe

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(