Mercurial > repos > mnhn65mo > tabular_to_csv
annotate tab2csv.R @ 0:659820e2aa61 draft
Uploaded
| author | mnhn65mo |
|---|---|
| date | Wed, 08 Aug 2018 06:23:04 -0400 |
| parents | |
| children | f1b7d0032530 |
| rev | line source |
|---|---|
| 0 | 1 #!/usr/bin/env Rscript |
| 2 #Read csv - return tabular | |
| 3 #2 Options for now : sep an header | |
| 4 | |
| 5 args = commandArgs(trailingOnly=TRUE) | |
| 6 | |
| 7 if(args[3]=="TRUE"){ | |
| 8 tabular<-read.table(args[1],sep="\t",header=TRUE) | |
| 9 write.tale(tabular,"out.csv",sep=args[2],row.names=FALSE) | |
| 10 }else{ | |
| 11 tabular<-read.table(args[1],sep="\t",header=FALSE) | |
| 12 write.table(tabular,"out.csv",sep=args[2],col.names=FALSE,row.names=FALSE) | |
| 13 } | |
| 14 |