diff --git a/dev/github_extraire.R b/dev/github_extraire.R index c70d252062ef5f72e11bb9db0dd1b3352659e629..0e69eb2e60568827c0f9abfb84390e371ac4e203 100644 --- a/dev/github_extraire.R +++ b/dev/github_extraire.R @@ -118,6 +118,11 @@ get_github_topics <- function(repo) { commits_analyse_spatiale <- get_github_commits(repo_analyse_spatiale) issues_analyse_spatiale <- get_github_issues(repo_analyse_spatiale) + # COGiter + repo_cogiter <- "MaelTheuliere/COGiter" + commits_cogiter <- get_github_commits(repo_cogiter) + issues_cogiter <- get_github_issues(repo_cogiter) + repos <- c( "spyrales/shinygouv", "spyrales/gouvdown", "MTES-MCT/parcours_r_module_applications_shiny", @@ -129,7 +134,8 @@ get_github_topics <- function(repo) { "MTES-MCT/parcours_r_socle_preparation_des_donnees", "MTES-MCT/savoirfR", "MTES-MCT/parcours-r", "MTES-MCT/parcours_r_module_datavisualisation", - "MTES-MCT/parcours_r_module_analyse_spatiale" + "MTES-MCT/parcours_r_module_analyse_spatiale", + "MaelTheuliere/COGiter" ) topics_list <- do.call(rbind, lapply(repos, get_github_topics)) @@ -147,8 +153,26 @@ get_github_topics <- function(repo) { commits_savoirfR, issues_savoirfR, commits_parcours_r, issues_parcours_r, commits_datavisualisation, issues_datavisualisation, - commits_analyse_spatiale, issues_analyse_spatiale + commits_analyse_spatiale, issues_analyse_spatiale, + commits_cogiter,issues_cogiter ) + + rm(commits_shinygouv, issues_shinygouv, + commits_gouvdown, issues_gouvdown, + commits_app_shiny, issues_app_shiny, + commits_ateliers_rpackage, issues_ateliers_rpackage, + commits_multi_dim, issues_multi_dim, + commits_stat_desc, issues_stat_desc, + commits_rmarkdown, issues_rmarkdown, + commits_introduction, issues_introduction, + commits_preparation_des_donnees, issues_preparation_des_donnees, + commits_savoirfR, issues_savoirfR, + commits_parcours_r, issues_parcours_r, + commits_datavisualisation, issues_datavisualisation, + commits_analyse_spatiale, issues_analyse_spatiale, + commits_cogiter,issues_cogiter + ) + combined_data <- combined_data %>% left_join(topics_list, by = "name") %>% mutate(origine = "Github",