inst/shiny/ui-tab-pcaPlot.R

In aymanm/seuratOnline: User Interface to Seurat (Single Cell) in R Shiny

tabItem(tabName = "pcaPlot", 
        fluidRow(
          column(12,h3(strong("PCAPlot Output:")),
                 column(3,
                        wellPanel(
                          h4("Choose PC to plot:"),
                          numericInput("dim1", "Dim 1 (X-axis)", value = 1),
                          numericInput("dim2", "Dim 2 (Y-axis)", value = 2)
                        )
                        #actionButton("jackStraw2","Next Step: Determine statistically significant PCs >>",class = "btn btn-success btn-lg", style = "white-space: normal")
                 ),
                 column(9,
                        column(12,
                               
                               #p("Visualize cells and genes that define the PCA"),
                               #strong(textOutput("numVarGenesFound")),
                               withSpinner(plotOutput(outputId = "pcaPlot", height = 700))
                        )
                 )
          )
        )
)