From 9ae39293478b25f7922e4ee03132e17b39b156ec Mon Sep 17 00:00:00 2001 From: GWMcElfresh Date: Thu, 9 Apr 2026 16:59:03 -0700 Subject: [PATCH] zip metadata files --- singlecell/resources/chunks/Functions.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/singlecell/resources/chunks/Functions.R b/singlecell/resources/chunks/Functions.R index e37fb605e..90d53c9db 100644 --- 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) }