Mercurial > repos > siwaa > carboseq_s

comparison 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
comparison
equal deleted inserted replaced
8:5fdc9d0c223b 9:2af4b1e46d90
1 library(data.table)
2 library(dplyr)
1 3
2 resU <- data.frame() 4 resU <- data.table();
3 5
4 listFiles <- list.files('./inputs') 6 listFiles <- commandArgs(trailingOnly = TRUE)
5 7
6 # restoring the order first 8 for (i in listFiles) {
7 9 load(i)
8 orderVec <- c() 10 resU<- dplyr::bind_rows(resU, res);
9
10 for (i in list.files('./inputs')) {
11 load(file.path('.', 'inputs',i))
12 orderVec <- c(orderVec, res$ID[1]);
13 rm(res)
14 }
15
16 listFilesReOrder <- listFiles[order(orderVec)]
17
18 for (i in listFilesReOrder) {
19 load(file.path('.', 'inputs',i))
20 resU<- rbind(resU, res);
21 rm(res) 11 rm(res)
22 } 12 }
23 13
24 res <-resU 14 res <-resU
25 15