Mercurial > repos > ylebras > xls2tabular

comparison xlsx2tab.R @ 8:0dc610053f6d draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author ylebras
date Tue, 04 Dec 2018 20:26:44 -0500
parents 25b2fb62d16a
children 74d5dc8f7465
comparison
equal deleted inserted replaced
7:25b2fb62d16a 8:0dc610053f6d
3 library(readxl) 3 library(readxl)
4 4
5 args = commandArgs(trailingOnly=TRUE) 5 args = commandArgs(trailingOnly=TRUE)
6 6
7 newname<-paste(args[1], "xlsx", sep=".") 7 newname<-paste(args[1], "xlsx", sep=".")
8 file.rename(args[1],newname) 8 file.copy(args[1],newname, overwrite=TRUE)
9 sheet<-read_excel(newname,sheet=args[2]) 9 sheet<-read_excel(newname,sheet=args[2])
10 write.table(sheet,"out.tabular",sep="\t",row.names=FALSE) 10 write.table(sheet,"out.tabular",sep="\t",row.names=FALSE)
11 11
12 } 12 }
13 13