Skip to content
Snippets Groups Projects

Resolve "créer un dataset qui contient toutes les issues de tous les projets."

Merged LE DURAND Matteo requested to merge 14-dataset-all-activity into main
7 files
+ 323
208
Compare changes
  • Side-by-side
  • Inline
Files
7
+ 0
46
# les packages nécessaire
library(gitlabr)
# install.packages("gitlabr")
library(DT)
# install.packages("DT")
library(shiny)
# install.packages("shiny")
library(shinydashboard)
# install.packages("shinydashboard")
library(shinythemes)
# install.packages("shinythemes")
library(dplyr)
# install.packages("dplyr")
library(tidyverse)
# install.packages("tidyverse")
library(randomcoloR)
# install.packages("randomcoloR")
library(ggplot2)
# install.packages("ggplot2")
library(plotly)
# install.packages("plotly")
library(shinygouv)
# install.packages("shinygouv")
library(rvest)
# install.packages("rvest")
set_gitlab_connection(gitlab_url = "https://gitlab-forge.din.developpement-durable.gouv.fr", #adresse internet
private_token = Sys.getenv("GITLAB_COM_TOKEN")) # Token personelle pour connexion
# attention j'ai du modifier le filtre puisque les variable ne correspondait plus a ce de la veille on va peut etre partire sur le select()
group <-gl_list_group_projects(group_id = 1013, max_page = 10)
group <- group %>% dplyr::select(id,name,created_at,star_count,last_activity_at,open_issues_count,updated_at,description,contains("members")) # _links.members
# transformation de chr en date
group$last_activity_at <- date(group$last_activity_at)
group$updated_at <- date(group$updated_at)
# premier filtre pour les groupes
groupf <- (group[as.numeric(group$open_issues_count) != 0, ])
groupf$open_issues_count <- as.numeric(groupf$open_issues_count)
# choix par identifiant de projet
choice <- groupf[1]
Loading