library(usethis)
s_small3 <- Seurat::pbmc_small
attr(attr(s_small3, "class"), "package") <- NULL
attr(attr(s@commands$NormalizeData.RNA, "class"), "package") <- NULL
attr(attr(s@commands$FindVariableFeatures.RNA, "class"), "package") <- NULL
attr(attr(s@commands$ScaleData.RNA, "class"), "package") <- NULL
attr(attr(s@commands$RunPCA.RNA, "class"), "package") <- NULL
attr(attr(s@commands$BuildSNN.RNA.pca, "class"), "package") <- NULL
attr(attr(s@commands$FindClusters, "class"), "package") <- NULL
attr(attr(s@commands$RunTSNE.pca, "class"), "package") <- NULL
attr(attr(s@commands$JackStraw.RNA.pca, "class"), "package") <- NULL
attr(attr(s@commands$ScoreJackStraw.pca, "class"), "package") <- NULL
attr(attr(s@commands$ProjectDim.RNA.pca, "class"), "package") <- NULL
attr(attr(attr(s@reductions$pca, "jackstraw"), "class"), "package") <- NULL
attr(attr(s@reductions$pca, "class"), "package") <- NULL
attr(attr(s@reductions$tse, "class"), "package") <- NULL
attr(attr(s@graphs$RNA_snn, "class"), "package") <- NULL
attr(attr(s@assays$RNA, "class"), "package") <- NULL
usethis::use_data(s_small3, compress = "xz", overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.