inst/shiny/ui_02_qc_filter.R

In compbiomed/singleCellTK: Comprehensive and Interactive Analysis of Single Cell RNA-Seq Data

source("ui_02_qc.R", local = TRUE) #creates shinyPanelQC variable
source("ui_02_filter.R", local = TRUE) #creates shinyPanelFilter variable

shinyPanelQCFilter <- fluidPage(
  includeCSS('styles.CSS'),
  h1("Data QC & Filtering"),
  tabsetPanel(id = "QCFilterTabsetPanel",
    tabPanel("QC", shinyPanelQC),
    tabPanel("Filtering", shinyPanelFilter)
  ),
  nonLinearWorkflowUI(id = "nlw-qcf")
)