ajout de COGiter et libération d'espace

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",