Fix error when only one seurat object is being merged

Author: bbimber

singlecell/resources/chunks/MergeSeurat.R

@@ -30,7 +30,7 @@ mergeBatch <- function(dat) {
 if (length(seuratObjects) == 1) {
     print('There is only one seurat object, no need to merge')
     datasetId <- names(seuratObjects)[[1]]
-    saveData(seuratObjects[[datasetId]], datasetId)
+    saveData(readSeuratRDS(seuratObjects[[datasetId]]), datasetId)
 } else {
     batchSize <- 20
     numBatches <- ceiling(length(seuratObjects) / batchSize)