## ----setup, include = FALSE------------------------------------------------
knitr::opts_chunk$set(
    collapse = TRUE,
    comment = "#>",
    error = FALSE,
    warning = FALSE,
    message = FALSE
)
stopifnot(requireNamespace("htmltools"))
htmltools::tagList(rmarkdown::html_dependency_font_awesome())
sce <- readRDS('sce.rds')

## --------------------------------------------------------------------------
library(iSEE)
app <- iSEE(sce, voice=TRUE)

## --------------------------------------------------------------------------
if (interactive()) {
    shiny::runApp(app, port=1234, launch.browser=FALSE)
}

## ----sessioninfo-----------------------------------------------------------
sessionInfo()
# devtools::session_info()