inst/dashboard/server.R

In ixplorer: Easy DataOps for R Users

# Server ----------------------------------------------------------------------

server <- function(input, output, session) {

  session$onSessionEnded(function() {
    stopApp()
  })

  # Data ----------------------------------------------------------------------
  lista_proyectos <- tryCatch(
    {
      get_data()
    },
    error = function(cond){
      stopApp("Invalid credentials. Please use authentication gadget.")
    }
  )

  proyectos <- tryCatch(
    {
      get_projects(lista_proyectos)
    },
    error = function(cond){
      stopApp("Invalid credentials. Please use authentication gadget.")
    }
  )

  # Projects ------------------------------------------------------------------

    lapply(proyectos, function(proyecto) {
      callModule(project, proyecto, project_name = proyecto)
    })

  observe({
    lapply(proyectos, function(proyecto) {
      appendTab(inputId = "tabs",
        tabPanel(proyecto,
          tabsetPanel(id = proyecto)
         ))
      })
   })

  # Repositories --------------------------------------------------------------
  for (proyecto in proyectos) {
    lapply(lista_proyectos[proyecto][[1]], function(repo) {
      callModule(repository, repo, repo_name = repo, project_name = proyecto)
    })
  }

  observe({
    for (proyecto in proyectos) {
      lapply(lista_proyectos[proyecto][[1]], function(repo) {
        appendTab(
          inputId = proyecto,
          tabPanel(repo,
            # h2(paste("Resumen de actividad del repositorio: ", repo)),
            repository_UI(repo)))
      })
    }
    for (proyecto in proyectos) {
        prependTab(
          inputId = proyecto,
          tabPanel("Overview",
            # h2(paste("Resumen general del proyecto:", proyecto)),
            project_UI(proyecto)))
    }
  })

}