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

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

##----------------------------------------------------------------------------##
## Coordinates of cells in projection.
##----------------------------------------------------------------------------##
overview_projection_coordinates <- reactive({
  req(
    overview_projection_parameters_plot(),
    overview_projection_cells_to_show()
  )
  # message('--> trigger "overview_projection_coordinates"')
  parameters <- overview_projection_parameters_plot()
  cells_to_show <- overview_projection_cells_to_show()
  req(parameters[["projection"]] %in% availableProjections())
  coordinates <- getProjection(parameters[["projection"]])[cells_to_show,]
#   message(str(coordinates))
  return(coordinates)
})