# Unique inputs ----
# sidebar - general
.doneInput <- "Done"
.resetInput <- "Reset"
# sidebar - boxes
.collapseAllInput <- "CollapseAll"
.expandAllInput <- "ExpandAll"
# sidebar - plotting
.plotFunction <- "PlotType"
.showLabelsInput <- "ShowLabels"
.redDimTypeInput <- "RedDimType"
.xAxisInput <- "XAxis"
.yAxisInput <- "YAxis"
# header - menus
.tourInput <- "Tour"
# Looped inputs ----
.geneSetNameInput <- "GeneSetName"
.boxOpen <- "BoxOpen"
# Looped outputs ----
.plotOutput <- "Plot"
# Dropdown selectize ----
.shinyLabelsPlotChoices <- c(
"Barplot (#)"="barplotPredictionCount",
"Barplot (%)"="barplotPredictionProportion")
# Misc ----
.actionbutton_biocstyle <- "color: #ffffff; background-color: #0092AC; border-color: #2e6da4"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.