Mercurial > repos > mnhn65mo > tabular_to_csv

comparison tab2csv.R @ 0:659820e2aa61 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author mnhn65mo
date Wed, 08 Aug 2018 06:23:04 -0400
parents
children f1b7d0032530
comparison
equal deleted inserted replaced
-1:000000000000 0:659820e2aa61
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