Mercurial > repos > sblanck > smagexp
comparison MetaRNASeq.R @ 24:cb29ad7d75a5 draft
planemo upload for repository https://github.com/sblanck/smagexp/tree/master/smagexp_tools commit a0cb2703e4dbbc1fadeedc5b61acb6e1324433f7
| author | sblanck |
|---|---|
| date | Sat, 24 Feb 2018 10:07:51 -0500 |
| parents | ef7d98f9eb51 |
| children | 49ce6fbe11de |
comparison
equal
deleted
inserted
replaced
| 23:b027311db6e4 | 24:cb29ad7d75a5 |
|---|---|
| 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 |