diff MaxQuantProcessingScript.R @ 6:922d309640db draft

"planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9dfb7e07a3673d7de4b0a1b7e6ce1b75a8a4f42b"

--- a/MaxQuantProcessingScript.R	Thu Mar 10 23:42:48 2022 +0000
+++ b/MaxQuantProcessingScript.R	Fri Mar 11 20:04:05 2022 +0000
@@ -521,6 +521,14 @@
 # ---
 quant_write <- cbind(metadata_df[, "Sequence window"], quant_data)
 colnames(quant_write)[1] <- "Sequence.Window"
+write.table(
+  quant_write,
+  file = quant_file_name,
+  sep = "\t",
+  quote = FALSE,
+  col.names = TRUE,
+  row.names = FALSE
+)
 # ...
 
 
@@ -568,14 +576,6 @@
 pct_multiphos <- sprintf("%0.1f%s", 100 * pct_multiphos, "%")
 # ...
 
-write.table(
-  quant_data_qc_collapsed,
-  file = quant_file_name,
-  sep = "\t",
-  quote = FALSE,
-  col.names = TRUE,
-  row.names = FALSE
-)
 
 # Compute and visualize breakdown of pY, pS, and pT before enrichment filter
 # ---