Plot the PBN of a cell selected in an interactive plot.

Launches a Shiny app with an interactive tSNE plot from a Seurat object. When a cell is clicked, the PBN for that cell is plotted side by side with the tSNE plot. Internally, it uses cellPbnPlot on the selected cell.

Usage

plotSelectedCell(ingres.object, seurat.object)

Arguments

ingres.object

An ingres object with a non-null single.cell.pbn slot.

seurat.object

A Seurat object created with the same dataset as the ingres object. Ideally, this object was used to create the ingres object through createIngresObjectFromSeurat.

Value

No return value, called only to launch the Shiny app.

Examples

if (FALSE) { # interactive()
ing <- createIngresObjectFromSeurat(
  small_blca_wang, "RNA", "data", network_genes, network
)
ing@viper <- viper_results
ing <- computePbnBySingleCell(ing)
plotSelectedCell(ing, small_blca_wang)
}