ui-tab-pathview.R

tabItem(tabName = "pathviewTab",
        h2(strong("Pathview Plot")),
        wellPanel(
          column(6,
                 
                 selectizeInput("pathwayIds", label="Select Pathway ID",
                                choices=NULL,
                                multiple=F,
                                options = list(
                                  placeholder =
                                    'Start typing pathway id'
                                )
                 )
                 
                 )
          ,
          column(6,
                 selectInput("geneid_type","Gene ID type:", choices = c(""), selected = NULL)
                 ),
          column(6,
                 actionButton("generatePathview", "Generate Pathview", class = "btn btn-info")
                 ),
          conditionalPanel("output.pathviewPlotsAvailable",
                           column(3,
                                  downloadButton('downloadPathviewPng','Download .png', class = "btn btn-warning", style="margin: 7px;")
                           ),
                           column(3,
                                  downloadButton('downloadPathviewPdf','Download .pdf', class = "btn btn-warning", style="margin: 7px;")
                           )
                           )
          ,
          tags$div(class = "clearBoth")
          
        ),
        withSpinner(imageOutput(outputId = "pathview_plot", inline = T),type = 8)
        
        
)