Mercurial > repos > ylebras > xls2tabular
annotate xlsx2tab.R @ 7:25b2fb62d16a draft
Uploaded
| author | ylebras |
|---|---|
| date | Tue, 04 Dec 2018 20:22:18 -0500 |
| parents | aa529f924b86 |
| children | 0dc610053f6d |
| rev | line source |
|---|---|
| 1 | 1 #!/usr/bin/env Rscript |
| 2 #Read Xlsx sheets - return tabular | |
| 3 library(readxl) | |
| 4 | |
| 5 args = commandArgs(trailingOnly=TRUE) | |
| 6 | |
| 7 | 7 newname<-paste(args[1], "xlsx", sep=".") |
| 6 | 8 file.rename(args[1],newname) |
| 9 sheet<-read_excel(newname,sheet=args[2]) | |
| 1 | 10 write.table(sheet,"out.tabular",sep="\t",row.names=FALSE) |
| 11 | |
| 12 } | |
| 13 |