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

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

##----------------------------------------------------------------------------##
## Hover info of cells in projection.
##----------------------------------------------------------------------------##
overview_projection_hover_info <- reactive({
  req(
    hover_info_projections(),
    overview_projection_cells_to_show()
  )
  # message('--> trigger "overview_projection_hover_info"')
  if (
    !is.null(preferences[["show_hover_info_in_projections"]]) &&
    preferences[['show_hover_info_in_projections']] == TRUE
  ) {
    hover_info <- hover_info_projections()[overview_projection_cells_to_show()]
  } else {
    hover_info <- hover_info_projections()
  }
  # message(str(hover_info))
  return(hover_info)
})