tabItem(tabName = "vizMarkersTab",
fluidRow(
column(12,
h3(strong("Visualizing Marker Expression:")),
tabsetPanel(type = "tabs",
tabPanel("Vln Plot",
column(12,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,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"))
)
)
))
)
)
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.