Always gzip seurat metadata CSV

Author: bbimber

singlecell/resources/chunks/Functions.R

@@ -107,7 +107,9 @@ saveData <- function(seuratObj, datasetId) {
     # Write cell barcodes and metadata:
     metaDf <- seuratObj@meta.data
     metaDf$cellbarcode <- colnames(seuratObj)
-    write.table(metaDf, file = metaFile, quote = T, row.names = F, sep = ',', col.names = T)
+    conn <- gzfile(metaDf)
+    write.table(conn, file = metaFile, quote = T, row.names = F, sep = ',', col.names = T)
+    close(conn)
     write.table(data.frame(CellBarcode = colnames(seuratObj)), file = barcodeFile, quote = F, row.names = F, sep = ',', col.names = F)
 }