inst/myapp/ui.R

In rpolicastro/kevin_scRNAseq_shiny: What the Package Does (One Line, Title Case)

ui <- fluidPage(theme = shinytheme("yeti"), navbarPage(title = "scRNA-seq",

## Meta-data page.
tabPanel("Meta-Data", tabsetPanel(

  ## Meta-data plot tab.
  tabPanel("Dim Plot", metadataPlotUI("metadataPlot")),
  ## Meta-data table tab.
  tabPanel("Table", metadataTableUI("metadataTable"))

)),

# Marker page.
tabPanel("Markers", tabsetPanel(

  ## Marker table tab.
  tabPanel("Table", markerTableUI("markerTable"))

)),

## Expression page.
tabPanel("Expression", tabsetPanel(

  ## Expression dim plot tab.
  tabPanel("Dim Plot", expDimPlotUI("expDimPlot")),

  ## Expession violin plot page.
  tabPanel("Expression Plot", expPlotUI("expPlot")),

  ## Expression table.
  tabPanel("Table", expTableUI("expTable"))

)),

## Term Enrichment Page.
tabPanel("Enrichment", tabsetPanel(

  ## Table tab.
  tabPanel("Table", enrichTableUI("enrichTable")),

  ## Dot-plot tab.
  tabPanel("Dot Plot", enrichDotplotUI("enrichDotPlot"))

))

))