R/ShowSpectraUI.R

In steverozen/mSigAct.server: Shiny Server for Analyzing Mutational Signature Activities

#' @import shiny
ShowSpectraUI <- function() {
  fluidPage(
    shinyjs::useShinyjs(),
    sidebarLayout(
      
      sidebarPanel(
        uiOutput(outputId = "selectSampleFromUploadedVCF"),
        uiOutput(outputId = "selectSampleFromUploadedCatalog")
      ),
      
      mainPanel(
        uiOutput(outputId = "spectraPlotFromVCF"),
        uiOutput(outputId = "spectraPlotFromCatalog")
        
      )
      
    )
  )
}