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