library(shiny)
library(dplyr)
library(plotly)
library(lubridate)
library(stringr)
library(gitear)
# Set global options ----------------------------------------------------------
## Si pongo estas funciones no sirve el dashboard. da un error
access_file <- ixplorer.es:::verify_ixplorer_file()
msg <- if (access_file$empty == TRUE) {
"no credential file available"
} else {
ixplorer.es:::set_authentication(access_data = access_file$gitear_access)
}
warning(msg)
# Define global functions -----------------------------------------------------
'%notin%' <- function(x,y)!('%in%'(x,y))
# example data ----------------------------------------------------------------------
get_data <- function() {
proyectos <- gitear::get_organizations(
base_url = Sys.getenv("IXURL"),
api_key = Sys.getenv("IXTOKEN"))
repos <- list()
for (name in proyectos$username) {
repos[[name]] <- gitear::get_list_repos_org(
base_url = Sys.getenv("IXURL"),
api_key = Sys.getenv("IXTOKEN"),
org = name)
}
lista_proyectos <- list()
for (repo in names(repos)) {
lista_proyectos[[repo]] <- repos[[repo]]$name
}
return(lista_proyectos)
}
get_projects <- function(ixplorer_data) {
proyectos <- names(ixplorer_data)
return(proyectos)
}
# Load modules ----------------------------------------------------------------
source("modules/project.R", encoding = "UTF-8")
source("modules/repository.R", encoding = "UTF-8")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.