diff --git a/src/bin/kmerclust_load.R b/src/bin/kmerclust_load.R index f6c4b1de243fa7c759e9f5902ad5ce4bd7c68b13..235cab928de032a2d8098b34e7c428adc761e965 100644 --- a/src/bin/kmerclust_load.R +++ b/src/bin/kmerclust_load.R @@ -1,10 +1,11 @@ library(kmerclust) +library(vroom) args <- commandArgs(trailingOnly = TRUE) -print(args) -data <- readr::read_tsv(args[2], show_col_types = FALSE) +data <- vroom::vroom(args[2], show_col_types = FALSE) format(object.size(data), units = "Mb") annotation <- parse_annotation(args[1]) -count <- annotate_counts(annotation, data, args[3]) %>% dplyr::ungroup() +count <- annotate_counts(annotation, data, args[3]) %>% dplyr::ungroup() %>% dplyr::select(-c("files")) +format(object.size(count), units = "Mb") save(count, file = paste0(args[3], ".Rdata"))