add export of a complete xlsx file in QC workflow

mpc-bioinformatics · Sep 9, 2024 · f905c19 · f905c19
1 parent a2739d9
commit f905c19
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/workflow_QC.R b/R/workflow_QC.R
@@ -141,6 +141,9 @@ workflow_QC <- function(data_path,
   write.csv(x = prepared_data$D, file = paste0(output_path, "/D_norm_wide", suffix, ".csv"), row.names = FALSE)
   write.csv(x = prepared_data$D_long, file = paste0(output_path, "/D_norm_long", suffix, ".csv"), row.names = FALSE)
 
+  openxlsx::write.xlsx(x = cbind(prepared_data$ID, prepared_data$D), file = paste0(output_path, "/D_norm_ID_", suffix, ".xlsx"),
+                       row.names = FALSE, overwrite = TRUE, keepNA = TRUE)
+
 
   #### Calculate Valid Value Plot ####