From 36492d786feb129395b28e975023051f19135552 Mon Sep 17 00:00:00 2001 From: Syed Abdullah Syeddan Date: Wed, 10 Jan 2024 15:20:28 -0500 Subject: [PATCH] - remove output file of all genes non filtered by CPM, realized it would be the same output file everytime. --- scripts/write_output_tables.R | 4 ---- 1 file changed, 4 deletions(-) diff --git a/scripts/write_output_tables.R b/scripts/write_output_tables.R index 0c3436c7..155a410e 100644 --- a/scripts/write_output_tables.R +++ b/scripts/write_output_tables.R @@ -135,10 +135,6 @@ write_tables <- function(facet) { ####################################### message("write results tables to txt") message(paste0("Rounding numeric data to ",params$output_digits," digits.")) - write.table(id_table %>% mutate(across(where(is.numeric), ~ round(., digits = params$output_digits))), - file = file.path(output_folder, - paste0(prefix,"-ALL_non_CPM_Filter.txt")), - quote = F, sep = '\t', col.names = NA) write.table(allResults %>% mutate(across(where(is.numeric), ~ round(., digits = params$output_digits))), file = file.path(output_folder, paste0(prefix,"-DESeq_output_ALL.txt")),