inst/shiny/v1.3/gene_expression/UI_projection_color_scale.R

In romanhaa/cerebroApp: Interactive visualization of scRNA-seq data with Cerebro

##----------------------------------------------------------------------------##
## UI elements to set color scale.
##----------------------------------------------------------------------------##
output[["expression_projection_color_scale_UI"]] <- renderUI({
  selectInput(
    "expression_projection_color_scale",
    label = "Color scale",
    choices = c("YlGnBu", "YlOrRd","Blues","Greens","Reds","RdBu","Viridis"),
    selected = "YlGnBu"
  )
})

## make sure elements are loaded even though the box is collapsed
outputOptions(
  output,
  "expression_projection_color_scale_UI",
  suspendWhenHidden = FALSE
)