diff --git a/global.R b/global.R index a8525640b91812c7680e6621e3fc6c58053decf8..f93b16e1c5b03ccc78fcb8edcd3d5345fd21b5ce 100644 --- a/global.R +++ b/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()