diff --git a/global.R b/global.R index 1637e9ae4b0f25bcf067784252265bf3829375ce..6509e82ec1f5170dd7ae642f00fae185dd00dcec 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(