library(SingleCellExperiment)
library(readr)
download.file(
"https://scrnaseq-public-datasets.s3.amazonaws.com/scater-objects/segerstolpe.rds",
destfile = "data/pancreas.rds"
)
sce <- read_rds("data/pancreas.rds")
sce <- sce[, !sce$cell_type1 == "not applicable"]
sce <-
sce[str_subset(rownames(sce), pattern = "ERCC", negate = TRUE), ]
write_rds(sce, "data/scePancreas.rds")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.