is_seurat_assay <- function(x) {
inherits(x, "Assay")
}
seurat_assay_has_scale_data <- function(x) {
stopifnot(is_seurat_assay(x))
length(SeuratObject::GetAssayData(x, "scale.data")) > 0
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.