inst/shiny/ui-tab-vizPcaPlot.R

In nasqar/seuratv3wizard: User Interface to Seurat (Single Cell) library in R Shiny

tabItem(tabName = "vizPcaPlot", 
        fluidRow(
          column(12,
                 h3(strong("VizPlot Output:")),
                 
                 column(3,
                        wellPanel(
                          h4("PCs to plot:"),
                          numericInput("pcsToPlotStart", "PC", value = 1),
                          numericInput("pcsToPlotEnd", "To", value = 4)
                        ),
                        #actionButton("jackStraw1","Next Step: Determine statistically significant PCs >>",class = "btn btn-success btn-lg", style = "white-space: normal")
                        wellPanel(
                          h4("Plot Download Options"),
                          numericInput("vizPcaDownloadHeight", "Plot height (in cm):", value = 14),
                          numericInput("vizPcaDownloadWidth", "Plot width (in cm):", value = 14),
                          radioButtons("vizPcaDownloadAs", "Download File Type:", choices = list("PDF" = ".pdf", "SVG" = ".svg", "PNG" = ".png", "JPEG" = ".jpeg"), selected = ".pdf"),
                          downloadButton("downloadVizPcaPlot", "Download Plot")
                        )
                 ),
                 column(9,
                        column(12,
                               #p("Visualize cells and genes that define the PCA"),
                               #strong(textOutput("numVarGenesFound")),
                               withSpinner(plotOutput(outputId = "vizPcaPlot", height = 700))
                        )
                 )
          )
        )
        
)