- remove output file of all genes non filtered by CPM, realized it wo…

…uld be the same output file everytime.
R-ODAF · Jan 10, 2024 · 36492d7 · 36492d7
1 parent f6789d3
commit 36492d7
Showing 1 changed file with 0 additions and 4 deletions.
diff --git 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")),