Add additional SDA heatmaps

bbimber · bbimber · commit e42bac6ef461 · 2023-01-06T16:03:47.000-08:00
diff --git a/singlecell/resources/chunks/RunSDA.R b/singlecell/resources/chunks/RunSDA.R
@@ -24,6 +24,10 @@ sdaFiles <- data.frame(DatasetId = character(), FileName = character())
 
     if (!all(is.null(fieldNames))) {
        CellMembrane::PlotSdaCellScores(sdaResults = sdaResults, seuratObj = seuratObj, fieldNames = fieldNames)
+
+       for (fieldName in fieldNames) {
+          CellMembrane::Plot_SDAScoresPerFeature(seuratObj = seuratObj, sdaResults = sdaResults, metadataFeature = fieldName)
+       }
     }
 
     fileName <- paste0('sda.', datasetId, '.rds')

Original file line number	Diff line number	Diff line change
`@@ -24,6 +24,10 @@ sdaFiles <- data.frame(DatasetId = character(), FileName = character())`
`24`	`24`
`25`	`25`	`if (!all(is.null(fieldNames))) {`
`26`	`26`	`CellMembrane::PlotSdaCellScores(sdaResults = sdaResults, seuratObj = seuratObj, fieldNames = fieldNames)`
	`27`	`+`
	`28`	`+ for (fieldName in fieldNames) {`
	`29`	`+ CellMembrane::Plot_SDAScoresPerFeature(seuratObj = seuratObj, sdaResults = sdaResults, metadataFeature = fieldName)`
	`30`	`+ }`
`27`	`31`	`}`
`28`	`32`
`29`	`33`	`fileName <- paste0('sda.', datasetId, '.rds')`