Smarter argument binding

bbimber · bbimber · commit 7e84d01d1252 · 2021-01-30T16:35:04.000-08:00
diff --git a/singlecell/resources/chunks/NormalizeAndScale.R b/singlecell/resources/chunks/NormalizeAndScale.R
@@ -4,7 +4,7 @@ for (datasetId in names(seuratObjects)) {
     seuratObjects[[datasetId]] <- NULL
     gc()
 
-    seuratObj <- CellMembrane::NormalizeAndScale(seuratObj, variableFeatureSelectionMethod = variableFeatureSelectionMethod, block.size = block.size)
+    seuratObj <- bindArgs(CellMembrane::NormalizeAndScale, seuratObj)()
 
     newSeuratObjects[[datasetId]] <- seuratObj
 
