Skip to content
Snippets Groups Projects
Commit f7a261f7 authored by LE DURAND Matteo's avatar LE DURAND Matteo
Browse files

certain projet on été renomme et dans certain evenement git il garde l'ancien...

certain projet on été renomme et dans certain evenement git il garde l'ancien donc si il ne trouve pas le projet il test avec le nom d'origine
parent 4774c202
No related branches found
No related tags found
2 merge requests!28Ajout de l'onglet indicateur et plus,!18MAJ de main de la branche dev
...@@ -286,14 +286,24 @@ all_data_forge <- all_data_forge %>% ...@@ -286,14 +286,24 @@ all_data_forge <- all_data_forge %>%
mutate(origine ="Gitlab_Forge") mutate(origine ="Gitlab_Forge")
all_data_forge <- left_join(all_data_forge, projects_topics, by = c("project_name" = "id")) all_data_forge <- left_join(all_data_forge, projects_topics, by = c("project_name" = "id"))
#data.frame avec les groupes et le nom pour left join ----- #data.frame avec les groupes et le nom pour left join-----
response_df <- data.frame( response_df <- data.frame(
name = response$name, name = response$name,
name2 = response$path, #name2 car si le projet à changé de nom alors la jointure ne se fait plus par le nom mais par le passage d'origine ce qui corrige grandement le manque d'information
groupe = response$namespace$path groupe = response$namespace$path
) )
# Joindre les deux jeux de données # Joindre les deux jeux de données
all_data_forge <- all_data_forge %>% all_data_forge <- all_data_forge %>%
left_join(response_df, by = c("project_name" = "name")) left_join(response_df, by = c("project_name" = "name")) # Faire un premier left_join() sur la colonne name
all_data_forge <- all_data_forge %>% # Compléter les lignes non appariées avec un second left_join() sur la colonne name2
# sauvegarde du jeu de donnée ----- left_join(
response_df %>%
select(name2, groupe), # On ne conserve que les colonnes utiles
by = c("project_name" = "name2"),
na_matches = "never" # Empêche l'association des NA
) %>%
mutate(groupe = coalesce(groupe.x, groupe.y)) %>% # Priorité au 1er join
select(-groupe.x, -groupe.y) # Nettoyage des colonnes temporaires
# sauvegarde du jeu de donnée-----
save(all_data_forge, file = "gitlab_forge.RData") save(all_data_forge, file = "gitlab_forge.RData")
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment