inst/src/ui.R

In LUMC/dgeAnalysis: dgeAnalysis

source("tabs/home/ui_home.R", local = TRUE)
source("tabs/upload/ui_upload.R", local = TRUE)
source("tabs/run_analysis/ui_run.R", local = TRUE)
source("tabs/alignment/ui_alignment.R", local = TRUE)
source("tabs/raw_data/ui_raw.R", local = TRUE)
source("tabs/norm_data/ui_norm.R", local = TRUE)
source("tabs/dimension/ui_dimension.R", local = TRUE)
source("tabs/heatmaps/ui_heatmaps.R", local = TRUE)
source("tabs/analysis/ui_analysis.R", local = TRUE)
source("tabs/bias/ui_bias.R", local = TRUE)
source("tabs/run_gprofiler/ui_enrich.R", local = TRUE)
source("tabs/gprofiler/ui_gprofiler.R", local = TRUE)
source("tabs/export/ui_export.R", local = TRUE)
source("tabs/about/ui_about.R", local = TRUE)


ui <- dashboardPage(
  skin = "blue",
  title = "dgeAnalysis",
  
  dashboardHeader(
    title = span(tagList(icon("dna"), "dgeAnalysis")),
    titleWidth = 400,
    tags$li(class = "dropdown", tags$a(textOutput("current_page")))
  ),
  dashboardSidebar(
    collapsed = FALSE,
    width = 350,
    
    sidebarMenu(sidebarMenuOutput("sidebar_tabs"))
  ),
  dashboardBody(
    useShinyjs(),
    includeCSS("css/styles.css", local = TRUE),
    tags$head(tags$link(rel = "shortcut icon", href = "lumcFavicon.png")),
    
    tabItems(
      tab_home,
      tab_upload,
      tab_run_analysis,
      tab_alignment,
      tab_raw_data,
      tab_norm_data,
      tab_dimension,
      tab_heatmaps,
      tab_analysis,
      tab_bias,
      tab_run_gprofiler,
      tab_gprofiler,
      tab_export,
      tab_about
    )
  )
)