From 65c4b6cc0d1fc83566730c9f1d1d9165a662861f Mon Sep 17 00:00:00 2001
From: Laurent Modolo <laurent.modolo@ens-lyon.fr>
Date: Mon, 13 Nov 2023 09:35:35 +0100
Subject: [PATCH] kmerclust_clust.R: disable csv output

---
 src/bin/kmerclust_clust.R | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/src/bin/kmerclust_clust.R b/src/bin/kmerclust_clust.R
index 2454cbd..f13300e 100644
--- a/src/bin/kmerclust_clust.R
+++ b/src/bin/kmerclust_clust.R
@@ -17,13 +17,13 @@ res <- count %>%
 
 save(res, file = paste0(args[1], "_clust_", args[3], ".Rdata"))
 
-count %>%
-  mutate(
-    count_m = round(count_m),
-    count_f = round(count_f)
-  ) %>%
-  dplyr::filter(count_m + count_f > 0) %>%
-  dplyr::mutate(chromosome = res$chromosome) %>%
-  dplyr::select(name, chromsome) %>%
-  write_csv2(file = paste0(args[1], "_clust_", args[3], ".csv"))
+#count %>%
+#  mutate(
+#    count_m = round(count_m),
+#    count_f = round(count_f)
+#  ) %>%
+#  dplyr::filter(count_m + count_f > 0) %>%
+#  dplyr::mutate(chromosome = res$chromosome) %>%
+#  dplyr::select(name, chromsome) %>%
+#  write_csv2(file = paste0(args[1], "_clust_", args[3], ".csv"))
 
-- 
GitLab