require(singleCellTK) require(ggplot2)
sce.qc<- params$object
plotsQCMetrics<- plotRunPerCellQCResults(sce.qc) i="QCMetrics" cat(paste0('# ', i, ' {.tabset .tabset-fade} \n\n')) cat(paste0('## Sum \n\n')) plotsQCMetrics$sum cat(paste0('## Total \n\n')) plotsQCMetrics$detected cat(paste0('## Subsets mito sum \n\n')) plotsQCMetrics$subsets_mito_sum cat(paste0('## Subsets mito detected \n\n')) plotsQCMetrics$subsets_mito_detected cat(paste0('## Subsets mito percent \n\n')) plotsQCMetrics$subsets_mito_percent cat(paste0('## Session info \n\n')) sce.qc@metadata$scater$addPerCellQC
description_runPerCellQC <- descriptionRunPerCellQC()
r description_runPerCellQC
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.