modified metadata dump

mdibl · Nov 22, 2024 · 0dcb250 · 0dcb250
1 parent a1a0f88
commit 0dcb250
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bin/Plotting.R b/bin/Plotting.R
@@ -220,14 +220,14 @@ SaveSeuratRds(MergedSO, file = paste0("08",params.ProjectName, "_FinalSO.rds"))
 # ╠═ Save Meta Data Table ═╣
 # ╚════════════════════════╝
 meta_table <- MergedSO@meta.data
-meta_table <- cbind(meta_table, as.data.table(MergedSO@reductions$pca@cell.embeddings))
 if (params.IntegrationMethod != "NULL"){
     meta_table <- cbind(meta_table, MergedSO@reductions[[paste0("tsne.",params.IntegrationMethod)]]@cell.embeddings)
     meta_table <- cbind(meta_table, MergedSO@reductions[[paste0("umap.",params.IntegrationMethod)]]@cell.embeddings)
 } else {
     meta_table <- cbind(meta_table, MergedSO@reductions[["tsne.unintegrated"]]@cell.embeddings)
     meta_table <- cbind(meta_table, MergedSO@reductions[["umap.unintegrated"]]@cell.embeddings)
 }
+meta_table <- cbind(meta_table, as.data.table(MergedSO@reductions$pca@cell.embeddings))
 write.csv(file = paste0("08_",params.ProjectName,"_MetaTable.tsv"), meta_table, col.names = T)