diff --git a/dev/gitlab_forge.R b/dev/gitlab_forge.R index bafacb2c6aeca489130aa499b99f4eb4942b3fa7..bb3396efd6b8e1031ff23f32993cca34ce17a705 100644 --- a/dev/gitlab_forge.R +++ b/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)