From 601b4bfb15a4bc97bd5ce1b9d6c1c4da7d46350c Mon Sep 17 00:00:00 2001
From: Laurent Modolo <laurent.modolo@ens-lyon.fr>
Date: Mon, 12 Jun 2023 09:21:25 +0200
Subject: [PATCH] fix args parsing in R scripts
---
src/bin/kmerclust.R | 3 +--
src/bin/kmerclust_merge.R | 2 ++
2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/bin/kmerclust.R b/src/bin/kmerclust.R
index 29dba78..201bd0b 100644
--- a/src/bin/kmerclust.R
+++ b/src/bin/kmerclust.R
@@ -1,6 +1,5 @@
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"))
diff --git a/src/bin/kmerclust_merge.R b/src/bin/kmerclust_merge.R
index c5e30f8..cadf100 100644
--- a/src/bin/kmerclust_merge.R
+++ b/src/bin/kmerclust_merge.R
@@ -1,5 +1,7 @@
library(kmerclust)
+args <- commandArgs(trailingOnly = TRUE)
+print(args)
res_files <- list.files(pattern = "Rdata$")
res_total <- NULL
for (res_file in res_files) {
--
GitLab