Save Seurat variableFeatures to text file

Author: bbimber

singlecell/resources/chunks/NormalizeAndScale.R

@@ -7,6 +7,8 @@ for (datasetId in names(seuratObjects)) {
 
     newSeuratObjects[[datasetId]] <- seuratObj
 
+    write.table(data.frame(Feature = Seurat::VariableFeatures(seuratObj), DatasetId = datasetId), file = paste0(outputPrefix, '.', datasetId, '.seurat.vf.txt'), quote = F, row.names = F, sep = '\t', col.names = F)
+
     # Cleanup
     rm(seuratObj)
     gc()