Add plots to custom UCell script

bbimber · bbimber · commit 472eeb330237 · 2024-03-07T14:08:52.000-08:00
diff --git a/singlecell/resources/chunks/CustomUCell.R b/singlecell/resources/chunks/CustomUCell.R
@@ -13,6 +13,10 @@ for (datasetId in names(seuratObjects)) {
   }
 
   seuratObj <- UCell::AddModuleScore_UCell(seuratObj, features = toCalculate, storeRanks = storeRanks, assay = assayName)
+  for (n in names(toCalculate)) {
+    print(Seurat::FeaturePlot(seuratObj, features = paste0(n, '_UCell'), min.cutoff = 'q02', max.cuttoff = 'q98'))
+  }
+
   saveData(seuratObj, datasetId)
 
   # Cleanup

Original file line number	Diff line number	Diff line change
`@@ -13,6 +13,10 @@ for (datasetId in names(seuratObjects)) {`
`13`	`13`	`}`
`14`	`14`
`15`	`15`	`seuratObj <- UCell::AddModuleScore_UCell(seuratObj, features = toCalculate, storeRanks = storeRanks, assay = assayName)`
	`16`	`+ for (n in names(toCalculate)) {`
	`17`	`+ print(Seurat::FeaturePlot(seuratObj, features = paste0(n, '_UCell'), min.cutoff = 'q02', max.cuttoff = 'q98'))`
	`18`	`+ }`
	`19`	`+`
`16`	`20`	`saveData(seuratObj, datasetId)`
`17`	`21`
`18`	`22`	`# Cleanup`