kmerclust_clust.R: disable csv output

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"))