require(singleCellTK) require(ggplot2)
sce.qc<- params$object
plotDecontX<- plotDecontXResults(sce.qc, reducedDimName = "UMAP") i="DecontX" cat(paste0('# ', i, ' {.tabset} \n\n')) cat(paste0('## Scatter Score \n\n')) plotDecontX$scatter_decontXContamination cat(paste0('## Scatter Clusters \n\n')) plotDecontX$scatter_decontXClusters cat(paste0('## Density Score \n\n')) plotDecontX$density_decontXContamination cat(paste0('## Violin Score \n\n')) plotDecontX$violin_decontXContamination cat(paste0('## Session info \n\n')) sce.qc@metadata$runDecontX
description_DecontX<- descriptionDecontX()
r description_DecontX
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.