Mercurial > repos > mnhn65mo > tabular_to_csv
annotate tab2csv.R @ 1:f1b7d0032530 draft default tip
Uploaded
| author | ylebras |
|---|---|
| date | Tue, 11 Sep 2018 10:37:13 -0400 |
| parents | 659820e2aa61 |
| children |
| 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) | |
| 1 | 9 write.table(tabular,"out.csv",sep=args[2],row.names=FALSE) |
| 0 | 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 |