Mercurial > repos > ylebras > xls2tabular

comparison xlsx2tab.R @ 7:25b2fb62d16a 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:22:18 -0500
parents aa529f924b86
children 0dc610053f6d
comparison
equal deleted inserted replaced
6:aa529f924b86 7:25b2fb62d16a
2 #Read Xlsx sheets - return tabular 2 #Read Xlsx sheets - return tabular
3 library(readxl) 3 library(readxl)
4 4
5 args = commandArgs(trailingOnly=TRUE) 5 args = commandArgs(trailingOnly=TRUE)
6 6
7 newname<-args[1]+".xlsx" 7 newname<-paste(args[1], "xlsx", sep=".")
8 file.rename(args[1],newname) 8 file.rename(args[1],newname)
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 }