ajout de la correspondance des nom avec l'annuaire et le filtre de l'annuaire

global.R

@@ -20,20 +20,28 @@ library(bizdays)
 library(shinyWidgets)
 library(textclean)
 library(stringi)
+library(readr)
 # chargement des données (résultat du script "dev/script_chargement_rdata.R")
 load("github.RData")
 load("gitlab_forge.RData")
 load("gitlab.RData")
 load("date_MAJ.RData")
 
+
+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 %>% mutate(auteur = paste(Prénom, Nom))%>% select(email, auteur)
+
 all_data <- bind_rows(all_data_gitlab, all_data_forge, combined_data)
 all_data$updated_at <- as.POSIXct(all_data$updated_at, format = ("%Y-%m-%dT%H:%M:%S"))
 all_data <- all_data %>% mutate(message = paste0(type,sep = "  : ",message))
-# transformation author ----
-all_data$author <- all_data$author %>%
-  tolower() %>%
-  stri_trans_general("Latin-ASCII") %>%
-  str_replace_all("[^a-z ]", "")
+
+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
+
 
 # transformation re_code ----
 traduction <- c(
@@ -50,6 +58,7 @@ traduction <- c(
   "Milestone" = "Gestion de projet"
 )
 all_data <- all_data %>% dplyr::mutate(re_code = dplyr::recode(type , !!!traduction))
+all_data <- all_data %>% dplyr::rename(project_name = name)
 
 #transformation message
 all_data$message <- all_data$message %>% tolower()