commentaire

global.R

@@ -31,7 +31,7 @@ load("path_annuaire.RData")
 
 annuaire$Messagerie <- tolower(annuaire$Messagerie)
 annuaire <- annuaire %>% dplyr::rename( mail = Messagerie)
-annuaire <- annuaire %>%  dplyr::filter( stringr::str_detect(Unité,"CSD" ) )
+annuaire <- annuaire %>%  dplyr::filter( stringr::str_detect(Unité,"CSD" ) ) # vérification mais normalement l'agenda est directement filté sur CSD uniquement
 annuaire <- annuaire %>% dplyr::mutate(auteur = paste(Prénom, Nom),
                                 mail_clean = stringr::str_remove(mail, "@.*") )%>% dplyr::select(mail_clean, auteur)