zip metadata files

GWMcElfresh · GWMcElfresh · commit 9ae39293478b · 2026-04-09T16:59:03.000-07:00
diff --git a/singlecell/resources/chunks/Functions.R b/singlecell/resources/chunks/Functions.R
@@ -107,7 +107,7 @@ 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)
+    write.table(metaDf, file = gzfile(metaFile), quote = T, row.names = F, sep = ',', col.names = T)
     write.table(data.frame(CellBarcode = colnames(seuratObj)), file = barcodeFile, quote = F, row.names = F, sep = ',', col.names = F)
 }
 

Original file line number	Diff line number	Diff line change
`@@ -107,7 +107,7 @@ saveData <- function(seuratObj, datasetId) {`
`107`	`107`	`# Write cell barcodes and metadata:`
`108`	`108`	`metaDf <- seuratObj@meta.data`
`109`	`109`	`metaDf$cellbarcode <- colnames(seuratObj)`
`110`		`- write.table(metaDf, file = metaFile, quote = T, row.names = F, sep = ',', col.names = T)`
	`110`	`+ write.table(metaDf, file = gzfile(metaFile), quote = T, row.names = F, sep = ',', col.names = T)`
`111`	`111`	`write.table(data.frame(CellBarcode = colnames(seuratObj)), file = barcodeFile, quote = F, row.names = F, sep = ',', col.names = F)`
`112`	`112`	`}`
`113`	`113`