From daf139509e535c45b7a63c679d6fff5672624c38 Mon Sep 17 00:00:00 2001
From: LE DURAND Matteo <matteo.le-durand@developpement-durable.gouv.fr>
Date: Mon, 17 Mar 2025 16:18:29 +0100
Subject: [PATCH] ajout de la correspondance des nom avec l'annuaire et le
filtre de l'annuaire
---
global.R | 19 ++++++++++++++-----
1 file changed, 14 insertions(+), 5 deletions(-)
diff --git a/global.R b/global.R
index a852564..f93b16e 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()
--
GitLab