From f62eeca584e20564516370c1601642635cbded30 Mon Sep 17 00:00:00 2001
From: LE DURAND Matteo <matteo.le-durand@developpement-durable.gouv.fr>
Date: Thu, 27 Mar 2025 09:29:19 +0100
Subject: [PATCH] =?UTF-8?q?update=20de=20package=20et=20ajout=20de=20l'aut?=
=?UTF-8?q?eur=20dans=20le=20message=20de=20l'=C3=A9venement?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
global.R | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/global.R b/global.R
index 1637e9a..6509e82 100644
--- a/global.R
+++ b/global.R
@@ -4,7 +4,7 @@ library(stringr)
library(gitlabr)
library(DT)
library(shiny)
-library(dplyr)
+library(tidyverse)
library(ggplot2)
library(plotly)
# remotes::install_github("spyrales/shinygouv")
@@ -38,11 +38,12 @@ annuaire <- annuaire %>% mutate(auteur = paste(Prénom, Nom),
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),
- email_clean = str_remove(author, "@.*"))
+all_data <- all_data %>% mutate(email_clean = str_remove(author, "@.*"))
all_data <- all_data %>% stringdist_left_join(annuaire,by = c("email_clean" = "mail_clean"), method = "jw", max_dist = 0.265) # ajout de auteur des membre du SCTE via l'annuaire, 75% des auteurs sont du csd
all_data <- all_data %>% dplyr::mutate(etiquette = paste(groupe,topics,sep = ","))
+all_data <- all_data %>% mutate(message = paste(type,sep = " : ",message,auteur),
+ auteur = replace_na(auteur,"autre"))
# transformation re_code ----
traduction <- c(
--
GitLab