les auteurs sont en mail pour plus tard avec l'annuaire les memttre en propre

dev/gitlab_forge.R

@@ -158,7 +158,7 @@ get_gitlab_issues <- function(base_url, project_id, private_token) {
       project_name = as.character(project_id),
       type = "issue",
       message = as.character(title),
-      author = author.username
+      author = paste0(author.username,"@developpement-durable.gouv.fr")
     )
   return(data %>% select(project_name, type, message, updated_at, author))
 }
@@ -189,7 +189,7 @@ get_gitlab_events <- function(base_url, project_id, private_token) {
       ),
 
       updated_at = created_at,
-      author = author.username
+      author = paste0(author.username,"@developpement-durable.gouv.fr")
     )%>%
     # left_join(name_gitlab, by = c("project_name" = "id")) %>%
     mutate(project_name = name) %>%
@@ -242,9 +242,7 @@ process_projects <- function(project_ids) {
 
 final_result <- process_projects(project_ids)
 final_result$project_id <- as.character(final_result$project_id)
-# final_result <- final_result %>% left_join(name_gitlab, by = c("project_id" = "id")) %>%
-#   mutate(project_name = name, type = "commit") %>%
-#   select(-name)
+
 final_result <- final_result %>% mutate(author = committer_email,type = "commit")
 final_result <- final_result %>% rename( "updated_at" = 'committed_date', "project_name" = 'project_id'  )
 ff <- final_result %>% filter(is_duplicate == FALSE) %>% select(project_name,type , message ,updated_at,author)
@@ -269,7 +267,7 @@ response_df <- data.frame(
 # Joindre les deux jeux de données
 all_data_forge <- all_data_forge %>%
   left_join(response_df, by = c("project_name" = "id")) # Faire un premier left_join() sur la colonne name
-
+all_data_forge$author <-  tolower(all_data_forge$author)
 
 # sauvegarde du jeu de donnée-----
 all_data_forge <- all_data_forge %>% select(name , type, message , updated_at , author , topics, origine,groupe)