view xlsx2tab.R @ 12:06dc9f83534b draft

Uploaded

#!/usr/bin/env Rscript
#Read Xlsx sheets - return tabular
library(readxl)

args = commandArgs(trailingOnly=TRUE)

#newname<-paste(args[1], "xlsx", sep=".")
#file.copy(args[1],newname, overwrite=TRUE)
#sheet<-read_excel(newname,sheet=args[2])
sheet<-read_excel(args[1],sheet=args[2])
write.table(sheet,"out.tabular",sep="\t",row.names=FALSE)

}