Bugfix to AppendSaturation

bbimber · bbimber · commit 6aa2678ccbad · 2021-10-29T11:08:20.000-07:00
diff --git a/singlecell/resources/chunks/AppendSaturation.R b/singlecell/resources/chunks/AppendSaturation.R
@@ -6,7 +6,7 @@ for (datasetId in names(seuratObjects)) {
         stop('Seurat object lacks a DatasetId field!')
     }
 
-    seuratObj <- CellMembrane::AppendPerCellSaturationInBulk(seuratObj, molInfoList = molInfoFiles[[datasetId]])
+    seuratObj <- CellMembrane::AppendPerCellSaturationInBulk(seuratObj, molInfoList = molInfoFiles)
     newSeuratObjects[[datasetId]] <- seuratObj
 
     # Cleanup

Original file line number	Diff line number	Diff line change
`@@ -6,7 +6,7 @@ for (datasetId in names(seuratObjects)) {`
`6`	`6`	`stop('Seurat object lacks a DatasetId field!')`
`7`	`7`	`}`
`8`	`8`
`9`		`- seuratObj <- CellMembrane::AppendPerCellSaturationInBulk(seuratObj, molInfoList = molInfoFiles[[datasetId]])`
	`9`	`+ seuratObj <- CellMembrane::AppendPerCellSaturationInBulk(seuratObj, molInfoList = molInfoFiles)`
`10`	`10`	`newSeuratObjects[[datasetId]] <- seuratObj`
`11`	`11`
`12`	`12`	`# Cleanup`