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

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

##----------------------------------------------------------------------------##
## Collect color parameters for projection plot.
##----------------------------------------------------------------------------##
expression_projection_parameters_color <- reactive({
  ## require input UI elements
  req(
    input[["expression_projection_color_scale"]],
    input[["expression_projection_color_range"]]
  )
  # message('--> trigger "expression_projection_parameters_color"')
  ## collect parameters
  parameters <- list(
    color_scale = input[["expression_projection_color_scale"]],
    color_range = input[["expression_projection_color_range"]]
  )
  # message(str(parameters))
  return(parameters)
})