fix args parsing in R scripts

src/bin/kmerclust.R

 library(kmerclust)
+print(args)
 load(file = paste0(args[1], ".Rdata"))
-
 res <- compare_models(count, nboot = args[2] * 2, bootsize = nrow(count), core = as.numeric(args[2]))
-
 save(res, file = paste0(args[1], "_boot_", args[3], ".Rdata"))

src/bin/kmerclust_merge.R

 library(kmerclust)
 
+args <- commandArgs(trailingOnly = TRUE)
+print(args)
 res_files <- list.files(pattern = "Rdata$")
 res_total <- NULL
 for (res_file in res_files) {