inst/shiny/v1.3/overview/obj_projection_data.R

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

##----------------------------------------------------------------------------##
## Cell meta data and position in projection.
##----------------------------------------------------------------------------##
overview_projection_data <- reactive({
  req(overview_projection_cells_to_show())
  # message('--> trigger "overview_projection_data"')
  cells_df <- getMetaData()[overview_projection_cells_to_show(),]
  # message(str(cells_df))
  return(cells_df)
})