R/UploadSpectraUI.R

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

#' @import shiny
UploadSpectraUI <- function() {
  fluidPage(
    sidebarLayout(
      
      sidebarPanel = sidebarPanel(
        fluidRow(
          # Add radio buttons for user to specify the reference genome
          column(6, AddReferenceGenome2()),
          
          # Add radio buttons for user to specify the genomic region
          # from where the catalogs were generated
          column(6, AddRegionForSpectra())
        ),
        
        fluidRow(
          column(6, UploadSpectra()),
          
          column(6, 
                 uiOutput(outputId = "showSpectraFromCatalog"), 
                 br(),
                 uiOutput(outputId = "sigAttributionFromCatalog"))
        ), # end fluidRown
        width = 5
      ), # end sidebarPanel
      
      mainPanel = mainPanel(
        fluidRow(
          column(8,
                 wellPanel(
                   div(tags$b("Load example spectra", style = "color: #337ab7;")),
                   br(),
                   splitLayout(cellWidths = c("25%", "27%", "25%", "25%"),
                               actionButton(inputId = "preloadSBS96Spectra", 
                                            label = "SBS96"),
                               actionButton(inputId = "preloadSBS192Spectra", 
                                            label = "SBS192"),
                               actionButton(inputId = "preloadDBS78Spectra", 
                                            label = "DBS78"),
                               actionButton(inputId = "preloadIDSpectra", 
                                            label = "ID")),
                   br(),
                   downloadButton(outputId = "downloadExampleSpectra",
                                  label = "Download example spectra"),
                 ) # End wellPanel
          ) # end column
        ), width = 7 # end fluidRow
      ) # end mainPanel
    ) # End sidebarLayout
  )
} # End function