inst/app/ui.R

In BimberLab/geneSetVis: Gene set visualization

if (exists('gsvis_package')) {
  source(system.file('app/uiElements.R', package = 'geneSetVis', mustWork = TRUE), local = TRUE)
  source(system.file('app/tabs.R', package = 'geneSetVis', mustWork = TRUE), local = TRUE)
} else {
  source('uiElements.R', local = TRUE)
  source('tabs.R', local = TRUE)
}

ui = shinydashboard::dashboardPage(
  shinydashboard::dashboardHeader(title = 'geneSetVis'),
  shinydashboard::dashboardSidebar(
    shinydashboard::sidebarMenu(
      id = 'sidebar',
      shinydashboard::menuItem(
        text = 'Load data',
        tabName = 'loadData',
        icon = icon(NULL),
        selected = TRUE
      ),
      shinydashboard::menuItem(
        text = 'STRINGdb',
        tabName = 'stringdb',
        icon = icon(NULL),
        selected = FALSE
      ),
      shinydashboard::menuItem(
        text = 'MsigDB',
        tabName = 'msigdb',
        icon = icon(NULL)
      ),
      shinydashboard::menuItem(
        text = 'Reactome',
        tabName = 'reactome',
        icon = icon(NULL)
      ),
      shinydashboard::menuItem(
        text = 'DOSE',
        tabName = 'dose',
        icon = icon(NULL)
      ),
      shinydashboard::menuItem(
        text = 'NCG',
        tabName = 'ncg',
        icon = icon(NULL)
      ),
      shinydashboard::menuItem(
        text = 'DisGeNET',
        tabName = 'dgn',
        icon = icon(NULL)
      ),
      shinydashboard::menuItem(
        text = 'enrichR',
        tabName = 'enrichr',
        icon = icon(NULL)
      ),
      shinydashboard::menuItem(
        text = 'App Info',
        tabName = 'appInfo',
        icon = icon(NULL)
      ),
      div(style = "display:inline-block;width:32%;text-align: center;",
          downloadButton(
            "downloadReport",
            label = NULL,
            icon = icon("paper-plane")
          ))

    )
  ),
  shinydashboard::dashboardBody(
    shinydashboard::tabItems(tab_load_data,
                             tab_stringdb,
                             tab_msigdb,
                             tab_reactome,
                             tab_dose,
                             tab_ncg,
                             tab_dgn,
                             tab_enrichr,
                             tab_info)
  )
)