update de package et ajout de l'auteur dans le message de l'évenement

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(