quote seurat metadata table on save

bbimber · bbimber · commit e3637b64a304 · 2022-06-10T12:18:55.000-07:00
diff --git a/singlecell/resources/chunks/Functions.R b/singlecell/resources/chunks/Functions.R
@@ -86,7 +86,7 @@ saveData <- function(seuratObj, datasetId) {
     # Write cell barcodes and metadata:
     metaDf <- seuratObj@meta.data
     metaDf$cellbarcode <- colnames(seuratObj)
-    write.table(metaDf, file = metaFile, quote = F, row.names = F, sep = ',', col.names = T)
+    write.table(metaDf, file = 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
`@@ -86,7 +86,7 @@ saveData <- function(seuratObj, datasetId) {`
`86`	`86`	`# Write cell barcodes and metadata:`
`87`	`87`	`metaDf <- seuratObj@meta.data`
`88`	`88`	`metaDf$cellbarcode <- colnames(seuratObj)`
`89`		`- write.table(metaDf, file = metaFile, quote = F, row.names = F, sep = ',', col.names = T)`
	`89`	`+ write.table(metaDf, file = metaFile, quote = T, row.names = F, sep = ',', col.names = T)`
`90`	`90`	`write.table(data.frame(CellBarcode = colnames(seuratObj)), file = barcodeFile, quote = F, row.names = F, sep = ',', col.names = F)`
`91`	`91`	`}`
`92`	`92`