Mercurial > repos > mnhn65mo > csv_to_tabular

diff csv2tab.R @ 0:b735ac78702b draft default tip

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:19:35 -0400
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/csv2tab.R	Wed Aug 08 06:19:35 2018 -0400
@@ -0,0 +1,14 @@
+#!/usr/bin/env Rscript
+#Read csv - return tabular
+#2 Options for now : sep an header
+
+args = commandArgs(trailingOnly=TRUE)
+
+if(args[3]=="TRUE"){
+    csv<-read.csv(args[1],sep=args[2],header=TRUE)
+    write.table(csv,"out.tabular",sep="\t",row.names=FALSE)
+}else{
+    csv<-read.csv(args[1],sep=args[2],header=FALSE)
+    write.table(csv,"out.tabular",sep="\t",col.names=FALSE,row.names=FALSE)
+}
+