Hancock: Learn and Apply Cell Type Signatures

# 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"