Mercurial > repos > sblanck > smagexp
comparison MetaRNASeq.R @ 4:58052f8bc987 draft
planemo upload for repository https://github.com/sblanck/smagexp/tree/master/smagexp_tools commit 8d4651e98155855108d1c4574392d503cc04bc95
author | sblanck |
---|---|
date | Thu, 01 Mar 2018 05:22:24 -0500 |
parents | 1024245abc70 |
children | 3ce32282f6a4 |
comparison
equal
deleted
inserted
replaced
3:63355796cdc8 | 4:58052f8bc987 |
---|---|
41 inputFileInfo <- unlist( strsplit( listInput[i], ';' ) ) | 41 inputFileInfo <- unlist( strsplit( listInput[i], ';' ) ) |
42 listfiles=c(listfiles,inputFileInfo[1]) | 42 listfiles=c(listfiles,inputFileInfo[1]) |
43 listfilenames=c(listfilenames,inputFileInfo[2]) | 43 listfilenames=c(listfilenames,inputFileInfo[2]) |
44 } | 44 } |
45 | 45 |
46 cargs <- commandArgs() | |
47 cargs <- cargs[(which(cargs == "--args")+1):length(cargs)] | |
48 nbargs=length(cargs) | |
49 listfiles=vector() | |
50 listfilenames=vector() | |
51 for (i in seq(1,nbargs-6,2)) { | |
52 listfiles=c(listfiles,cargs[[i]]) | |
53 listfilenames=c(listfilenames,cargs[[i+1]]) | |
54 } | |
55 #mod<-cargs[[length(cargs) - 6]] | |
56 outputfile <- opt$result | 46 outputfile <- opt$result |
57 result.html = opt$htmloutput | 47 result.html = opt$htmloutput |
58 html.files.path=opt$htmloutputpath | 48 html.files.path=opt$htmloutputpath |
59 result.template=opt$htmltemplate | 49 result.template=opt$htmltemplate |
60 | 50 |