Mercurial > repos > siwaa > carboseq_s

diff carboseqUnsplit.R @ 9:2af4b1e46d90 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"planemo upload for repository https://forgemia.inra.fr/carboseq/record-projet-carboseq/-/tree/0376c8590ba7b401f91db9be50a49e03cf5044fb/toos/CarboSeqSimulator commit 0376c8590ba7b401f91db9be50a49e03cf5044fb-dirty"
author siwaa
date Tue, 17 Sep 2024 10:41:39 +0000
parents 5fdc9d0c223b
children
line wrap: on
line diff
--- a/carboseqUnsplit.R	Fri Aug 30 13:29:48 2024 +0000
+++ b/carboseqUnsplit.R	Tue Sep 17 10:41:39 2024 +0000
@@ -1,23 +1,13 @@
-
-resU <- data.frame()
+library(data.table)
+library(dplyr)
 
-listFiles <- list.files('./inputs')
-
-# restoring the order first
-
-orderVec <- c()
+resU <- data.table();
 
-for (i in list.files('./inputs')) {
-    load(file.path('.', 'inputs',i))
-    orderVec <- c(orderVec, res$ID[1]);
-    rm(res)
-    }
+listFiles <- commandArgs(trailingOnly = TRUE)
 
-listFilesReOrder <- listFiles[order(orderVec)]
-
-for (i in listFilesReOrder) {
-    load(file.path('.', 'inputs',i))
-    resU<- rbind(resU, res);
+for (i in listFiles) {
+    load(i)
+    resU<- dplyr::bind_rows(resU, res);
     rm(res)
     }