R/cytoviewer.R
cytoviewer.Rd
This shiny R application allows users to interactively visualize multi-channel
images and segmentation masks generated by imaging mass cytometry and other
highly multiplexed imaging techniques. The cytoviewer
interface is
divided into image-level (Composite and Channels) and cell-level visualization
(Masks). It allows users to overlay individual images with segmentation masks,
integrates well with SingleCellExperiment
and SpatialExperiment
objects for metadata visualization and supports image downloads.
cytoviewer(
image = NULL,
mask = NULL,
object = NULL,
cell_id = NULL,
img_id = NULL
)
(optional) a CytoImageList
object containing
single or multi-channel Image
objects.
(optional) a CytoImageList
containing
single-channel Image
objects.
(optional) a SingleCellExperiment
or SpatialExperiment
object.
character specifying the colData(object)
entry, in which
the integer cell IDs are stored. These IDs should match the integer pixel
values in the segmentation mask object (mask
).
character specifying the colData(object)
and
mcols(mask)
and/or mcols(image)
entry,
in which the image IDs are stored.
A Shiny app object for interactive multi-channel image visualization and exploration
The functionality of cytoviewer
depends on which input objects are
user-provided. Below we describe the four use cases in respect to input
objects and functionality.
1. Usage of cytoviewer with images, masks and object
The full functionality of cytoviewer can be leveraged when
image
, mask
and object
are provided.
This allows image-level visualization (Composite and Channels),
cell-level visualization, overlaying images with segmentation masks
as well as metadata visualization.
2. Usage of cytoviewer with images only
If only image
is specified, image-level visualization (Composite and
Channels) is possible.
3. Usage of cytoviewer with images and masks
Image-level visualization (Composite and Channels), overlaying of images with
masks and cell-level visualization is feasible when image
and
mask
are provided.
4. Usage of cytoviewer with masks and object
If mask
and object
are specified, cell-level visualization
as well as metadata visualization is possible.
plotPixels
for the function underlying
image-level visualization
plotCells
for the function underlying
cell-level visualization
cytomapperShiny
for a shiny application that
visualizes gated cells on images
# Load example datasets from cytomapper
library(cytomapper, quietly = TRUE)
#>
#> Attaching package: ‘MatrixGenerics’
#> The following objects are masked from ‘package:matrixStats’:
#>
#> colAlls, colAnyNAs, colAnys, colAvgsPerRowSet, colCollapse,
#> colCounts, colCummaxs, colCummins, colCumprods, colCumsums,
#> colDiffs, colIQRDiffs, colIQRs, colLogSumExps, colMadDiffs,
#> colMads, colMaxs, colMeans2, colMedians, colMins, colOrderStats,
#> colProds, colQuantiles, colRanges, colRanks, colSdDiffs, colSds,
#> colSums2, colTabulates, colVarDiffs, colVars, colWeightedMads,
#> colWeightedMeans, colWeightedMedians, colWeightedSds,
#> colWeightedVars, rowAlls, rowAnyNAs, rowAnys, rowAvgsPerColSet,
#> rowCollapse, rowCounts, rowCummaxs, rowCummins, rowCumprods,
#> rowCumsums, rowDiffs, rowIQRDiffs, rowIQRs, rowLogSumExps,
#> rowMadDiffs, rowMads, rowMaxs, rowMeans2, rowMedians, rowMins,
#> rowOrderStats, rowProds, rowQuantiles, rowRanges, rowRanks,
#> rowSdDiffs, rowSds, rowSums2, rowTabulates, rowVarDiffs, rowVars,
#> rowWeightedMads, rowWeightedMeans, rowWeightedMedians,
#> rowWeightedSds, rowWeightedVars
#>
#> Attaching package: ‘BiocGenerics’
#> The following objects are masked from ‘package:stats’:
#>
#> IQR, mad, sd, var, xtabs
#> The following objects are masked from ‘package:base’:
#>
#> Filter, Find, Map, Position, Reduce, anyDuplicated, aperm, append,
#> as.data.frame, basename, cbind, colnames, dirname, do.call,
#> duplicated, eval, evalq, get, grep, grepl, intersect, is.unsorted,
#> lapply, mapply, match, mget, order, paste, pmax, pmax.int, pmin,
#> pmin.int, rank, rbind, rownames, sapply, setdiff, table, tapply,
#> union, unique, unsplit, which.max, which.min
#>
#> Attaching package: ‘S4Vectors’
#> The following object is masked from ‘package:utils’:
#>
#> findMatches
#> The following objects are masked from ‘package:base’:
#>
#> I, expand.grid, unname
#>
#> Attaching package: ‘IRanges’
#> The following objects are masked from ‘package:EBImage’:
#>
#> resize, tile
#> Welcome to Bioconductor
#>
#> Vignettes contain introductory material; view with
#> 'browseVignettes()'. To cite Bioconductor, see
#> 'citation("Biobase")', and for packages 'citation("pkgname")'.
#>
#> Attaching package: ‘Biobase’
#> The following object is masked from ‘package:MatrixGenerics’:
#>
#> rowMedians
#> The following objects are masked from ‘package:matrixStats’:
#>
#> anyMissing, rowMedians
#> The following object is masked from ‘package:EBImage’:
#>
#> channel
#>
#> Attaching package: ‘cytomapper’
#> The following objects are masked from ‘package:Biobase’:
#>
#> channelNames, channelNames<-
data("pancreasImages")
data("pancreasMasks")
data("pancreasSCE")
# 1. Use cytoviewer with images, masks and object
app <- cytoviewer(image = pancreasImages,
mask = pancreasMasks,
object = pancreasSCE,
img_id = "ImageNb",
cell_id = "CellNb")
if (interactive()) {
shiny::runApp(app, launch.browser = TRUE)
}
## Other input variations (see "The input objects" section):
# 2. Use cytoviewer with images
app_1 <- cytoviewer(image = pancreasImages)
if (interactive()) {
shiny::runApp(app_1, launch.browser = TRUE)
}
# 3. Use cytoviewer with images and masks
app_2 <- cytoviewer(image = pancreasImages,
mask = pancreasMasks,
img_id = "ImageNb")
if (interactive()) {
shiny::runApp(app_2, launch.browser = TRUE)
}
# 4. Use cytoviewer with masks and object
app_3 <- cytoviewer(mask = pancreasMasks,
object = pancreasSCE,
img_id = "ImageNb",
cell_id = "CellNb")
if (interactive()) {
shiny::runApp(app_3, launch.browser = TRUE)
}