Update parameter name for SDA

bbimber · bbimber · commit 5d98896fe684 · 2023-01-06T10:00:00.000-08:00
diff --git a/singlecell/resources/chunks/RunSDA.R b/singlecell/resources/chunks/RunSDA.R
@@ -19,8 +19,8 @@ sdaFiles <- data.frame(DatasetId = character(), FileName = character())
     outputFileId <- ifelse(datasetId %in% names(datasetIdToOutputFileId), yes = datasetIdToOutputFileId[[datasetId]], no = NA)
     sdaResults$OutputFileId <- outputFileId
 
-    if (!all(is.null(fieldsToPlot))) {
-       PlotSdaCellScores(seuratObj, sdaResults, fieldNames = fieldsToPlot)
+    if (!all(is.null(fieldNames))) {
+       PlotSdaCellScores(seuratObj, sdaResults, fieldNames = fieldNames)
     }
 
     fileName <- paste0('sda.', datasetId, '.rds')

Original file line number	Diff line number	Diff line change
`@@ -19,8 +19,8 @@ sdaFiles <- data.frame(DatasetId = character(), FileName = character())`
`19`	`19`	`outputFileId <- ifelse(datasetId %in% names(datasetIdToOutputFileId), yes = datasetIdToOutputFileId[[datasetId]], no = NA)`
`20`	`20`	`sdaResults$OutputFileId <- outputFileId`
`21`	`21`
`22`		`- if (!all(is.null(fieldsToPlot))) {`
`23`		`- PlotSdaCellScores(seuratObj, sdaResults, fieldNames = fieldsToPlot)`
	`22`	`+ if (!all(is.null(fieldNames))) {`
	`23`	`+ PlotSdaCellScores(seuratObj, sdaResults, fieldNames = fieldNames)`
`24`	`24`	`}`
`25`	`25`
`26`	`26`	`fileName <- paste0('sda.', datasetId, '.rds')`