add export of a complete xlsx file in QC workflow

Author: Karin Schork

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 ####