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

on remplace le pseudo avec l'email

parent e708462b
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
...@@ -6,9 +6,7 @@ library(DT) ...@@ -6,9 +6,7 @@ library(DT)
library(stringr) library(stringr)
# Récupérer le token GitHub depuis l'environnement # Récupérer le token GitHub depuis l'environnement
extract_before_at <- function(email) {
sub("@.*", "", email)
}
# Fonction pour récupérer les commits d'un projet GitHub avec clé API # Fonction pour récupérer les commits d'un projet GitHub avec clé API
get_github_commits <- function(repo) { get_github_commits <- function(repo) {
url <- paste0("https://api.github.com/repos/", repo, "/commits") url <- paste0("https://api.github.com/repos/", repo, "/commits")
...@@ -18,12 +16,12 @@ get_github_commits <- function(repo) { ...@@ -18,12 +16,12 @@ get_github_commits <- function(repo) {
} }
commits <- fromJSON(content(response, "text"), flatten = TRUE) commits <- fromJSON(content(response, "text"), flatten = TRUE)
commits <- commits %>% commits <- commits %>%
mutate(project_name = repo, # Ajouter le nom du projet mutate(name = repo, # Ajouter le nom du projet
type = "commit", # Spécifier le type comme "commit" type = "commit", # Spécifier le type comme "commit"
message = commit.message, # Utiliser le message du commit message = commit.message, # Utiliser le message du commit
author = extract_before_at(commit.committer.email) , # Ajout de l'auteur author = commit.committer.email , # Ajout de l'auteur
updated_at = commit.committer.date) %>% # Date de la dernière mise à jour updated_at = commit.committer.date) %>% # Date de la dernière mise à jour
select(project_name, type, message, updated_at,author) # Conserver les colonnes pertinentes select(name, type, message, updated_at,author) # Conserver les colonnes pertinentes
return(commits) return(commits)
} }
...@@ -36,12 +34,12 @@ get_github_issues <- function(repo) { ...@@ -36,12 +34,12 @@ get_github_issues <- function(repo) {
} }
issues <- fromJSON(content(response, "text"), flatten = TRUE) issues <- fromJSON(content(response, "text"), flatten = TRUE)
issues <- issues %>% issues <- issues %>%
mutate(project_name = repo, # Ajouter le nom du projet mutate(name = repo, # Ajouter le nom du projet
type = "issue", # Spécifier le type comme "issue" type = "issue", # Spécifier le type comme "issue"
message = title, # Utiliser le titre de l'issue message = title, # Utiliser le titre de l'issue
author = user.login , # Ajout de l'auteur author = user.login , # Ajout de l'auteur
updated_at = updated_at) %>% # Date de la dernière mise à jour updated_at = updated_at) %>% # Date de la dernière mise à jour
select(project_name, type, message, updated_at,author) # Conserver les colonnes pertinentes select(name, type, message, updated_at,author) # Conserver les colonnes pertinentes
return(issues) return(issues)
} }
...@@ -52,7 +50,7 @@ get_github_topics <- function(repo) { ...@@ -52,7 +50,7 @@ get_github_topics <- function(repo) {
stop("Failed to fetch topics from GitHub API for repo: ", repo) stop("Failed to fetch topics from GitHub API for repo: ", repo)
} }
topics <- fromJSON(content(response, "text"), flatten = TRUE)$names topics <- fromJSON(content(response, "text"), flatten = TRUE)$names
return(data.frame(project_name = repo, topics = paste(topics, collapse = ", "))) # Combine topics en une chaîne unique return(data.frame(name = repo, topics = paste(topics, collapse = ", "))) # Combine topics en une chaîne unique
} }
...@@ -152,11 +150,11 @@ get_github_topics <- function(repo) { ...@@ -152,11 +150,11 @@ get_github_topics <- function(repo) {
commits_analyse_spatiale, issues_analyse_spatiale commits_analyse_spatiale, issues_analyse_spatiale
) )
combined_data <- combined_data %>% combined_data <- combined_data %>%
left_join(topics_list, by = "project_name") %>% left_join(topics_list, by = "name") %>%
mutate(origine = "Github", mutate(origine = "Github",
groupe = case_when( groupe = case_when(
str_detect(project_name, "parcours_r") ~ "r-formation", str_detect(name, "parcours_r") ~ "r-formation",
str_detect(project_name, "spyrales") ~ "spyrales", str_detect(name, "spyrales") ~ "spyrales",
TRUE ~ "autre" TRUE ~ "autre"
)) %>% )) %>%
unique() unique()
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment