diff --git a/global.R b/global.R index d35e2cbf44e6982971b1f5d0700edaff8302e403..a8525640b91812c7680e6621e3fc6c58053decf8 100644 --- a/global.R +++ b/global.R @@ -28,12 +28,7 @@ load("date_MAJ.RData") 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), - categorie = case_when( - str_detect(project_name, "parcours_r") ~ "r-formation", - str_detect(project_name, "spyrales") ~ "spyrales", - TRUE ~ "autre" - )) +all_data <- all_data %>% mutate(message = paste0(type,sep = " : ",message)) # transformation author ---- all_data$author <- all_data$author %>% tolower() %>% @@ -51,7 +46,7 @@ traduction <- c( "WikiPage::Meta" = "Documentation", "joined" = "Gestion de projet" , "WorkItem" = "Gestion de projet" , - "MergeRequest" = "Code" , + "MergeRequest" = "Code" , # ajouter un "item" merge ? "Milestone" = "Gestion de projet" ) all_data <- all_data %>% dplyr::mutate(re_code = dplyr::recode(type , !!!traduction))