Bugfix to SDA

bbimber · bbimber · commit 1b7d3dc75462 · 2023-01-06T08:29:10.000-08:00
diff --git a/singlecell/resources/chunks/RunSDA.R b/singlecell/resources/chunks/RunSDA.R
@@ -20,7 +20,7 @@ sdaFiles <- data.frame(DatasetId = character(), FileName = character())
     sdaResults$OutputFileId <- outputFileId
 
     if (!all(is.null(fieldsToPlot))) {
-       PlotSdaCellScores(seuratObj, sdaResults, fieldNames = fieldNames)
+       PlotSdaCellScores(seuratObj, sdaResults, fieldNames = fieldsToPlot)
     }
 
     fileName <- paste0('sda.', datasetId, '.rds')

Original file line number	Diff line number	Diff line change
`@@ -20,7 +20,7 @@ sdaFiles <- data.frame(DatasetId = character(), FileName = character())`
`20`	`20`	`sdaResults$OutputFileId <- outputFileId`
`21`	`21`
`22`	`22`	`if (!all(is.null(fieldsToPlot))) {`
`23`		`- PlotSdaCellScores(seuratObj, sdaResults, fieldNames = fieldNames)`
	`23`	`+ PlotSdaCellScores(seuratObj, sdaResults, fieldNames = fieldsToPlot)`
`24`	`24`	`}`
`25`	`25`
`26`	`26`	`fileName <- paste0('sda.', datasetId, '.rds')`