Debug seurat save issue

bbimber · bbimber · commit 2ec1fcf233c0 · 2023-02-17T16:57:09.000-08:00
diff --git a/singlecell/resources/chunks/Functions.R b/singlecell/resources/chunks/Functions.R
@@ -98,6 +98,7 @@ saveData <- function(seuratObj, datasetId) {
     }
 
     write.table(toAppend, file = 'savedSeuratObjects.txt', quote = FALSE, sep = '\t', row.names = FALSE, col.names = FALSE, append = TRUE)
+    print(paste0('Total lines in savedSeuratObjects.txt after save:', length(readLines('savedSeuratObjects.txt'))))
 
     # Write cell barcodes and metadata:
     metaDf <- seuratObj@meta.data

Original file line number	Diff line number	Diff line change
`@@ -98,6 +98,7 @@ saveData <- function(seuratObj, datasetId) {`
`98`	`98`	`}`
`99`	`99`
`100`	`100`	`write.table(toAppend, file = 'savedSeuratObjects.txt', quote = FALSE, sep = '\t', row.names = FALSE, col.names = FALSE, append = TRUE)`
	`101`	`+ print(paste0('Total lines in savedSeuratObjects.txt after save:', length(readLines('savedSeuratObjects.txt'))))`
`101`	`102`
`102`	`103`	`# Write cell barcodes and metadata:`
`103`	`104`	`metaDf <- seuratObj@meta.data`