inst/shiny/ui-tab-vizMarkers.R

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

tabItem(tabName = "vizMarkersTab",

        fluidRow(

          column(12,


                 h3(strong("Visualizing Marker Expression:")),

                 tabsetPanel(type = "tabs",
                             tabPanel("Vln Plot",
                                      column(12,
                                             p("Note: make sure to find cluster markers first, as the list of genes you can plot will from the output of that step"),

                                             h3(strong("Vln Plot:")),
                                             column(3,
                                                    wellPanel(
                                                      h4("Genes to plot:"),
                                                      selectizeInput("genesToPlotVln", label="Select Genes",
                                                                     choices=NULL,
                                                                     multiple=TRUE,
                                                                     options = list(
                                                                       placeholder =
                                                                         'Start typing gene name'
                                                                     )
                                                      ),
                                                      checkboxInput("useRaw","Use Raw UMI counts"),
                                                      checkboxInput("ylog","Plot Y-axis on log scale"),
                                                      actionButton("plotVlns","Plot",class = "button button-3d button-block button-pill button-primary", style = "width: 100%")
                                                    )
                                             ),
                                             column(9,
                                                    column(12,
                                                          withSpinner(plotOutput(outputId = "VlnMarkersPlot"))
                                                    )
                                             )
                                      )),

                             tabPanel("Feature Plot",
                                      column(12,
                                             p("Note: make sure to find cluster markers first, as the list of genes you can plot will from the output of that step"),

                                             h3(strong("Feature Plot:")),
                                             column(3,
                                                    wellPanel(
                                                      h4("Genes to plot:"),
                                                      selectizeInput("genesToFeaturePlot", label="Select Genes",
                                                                     choices=NULL,
                                                                     multiple=TRUE,
                                                                     options = list(
                                                                       placeholder =
                                                                         'Start typing gene name'
                                                                     )
                                                      ),
                                                      selectInput("reducUseFeature","Reduction method to use",choices = c("tsne","pca","ica"), selected = "tsne"),
                                                      actionButton("plotFeatureMarkers","Plot",class = "button button-3d button-block button-pill button-primary", style = "width: 100%")
                                                    )

                                             ),
                                             column(9,
                                                    column(12,
                                                           withSpinner(plotOutput(outputId = "FeatureMarkersPlot"))
                                                    )
                                             )
                                      ))
                 )
          )
        )
)