Bugfix to LDA

bbimber · bbimber · commit f0f96903e892 · 2023-02-02T18:31:01.000-08:00
diff --git a/singlecell/resources/chunks/RunLDA.R b/singlecell/resources/chunks/RunLDA.R
@@ -14,7 +14,7 @@ ldaFiles <- data.frame(DatasetId = character(), FileName = character())
        stop(paste0('The object has ', ncol(seuratObj), ' which is above the maxAllowableCells: ', maxAllowableCells))
     }
 
-    ldaResults <- bindArgs(CellMembrane::RunLDA, seuratObj)()
+    ldaResults <- bindArgs(CellMembrane::DoLdaParameterScan, seuratObj)()
 
     outputFileId <- ifelse(datasetId %in% names(datasetIdToOutputFileId), yes = datasetIdToOutputFileId[[datasetId]], no = NA)
     ldaResults$OutputFileId <- outputFileId

Original file line number	Diff line number	Diff line change
`@@ -14,7 +14,7 @@ ldaFiles <- data.frame(DatasetId = character(), FileName = character())`
`14`	`14`	`stop(paste0('The object has ', ncol(seuratObj), ' which is above the maxAllowableCells: ', maxAllowableCells))`
`15`	`15`	`}`
`16`	`16`
`17`		`- ldaResults <- bindArgs(CellMembrane::RunLDA, seuratObj)()`
	`17`	`+ ldaResults <- bindArgs(CellMembrane::DoLdaParameterScan, seuratObj)()`
`18`	`18`
`19`	`19`	`outputFileId <- ifelse(datasetId %in% names(datasetIdToOutputFileId), yes = datasetIdToOutputFileId[[datasetId]], no = NA)`
`20`	`20`	`ldaResults$OutputFileId <- outputFileId`