comparison xlsx2tab.R @ 4:97c4e2e4f07e draft

Uploaded

3:f5bc9bda73b7

#Read Xlsx sheets - return tabular
library(readxl)

args = commandArgs(trailingOnly=TRUE)

sheet<-read_excel(args[1],sheet=args[2])
write.table(sheet,"out.tabular",sep="\t",row.names=FALSE)

}

4:97c4e2e4f07e

#Read Xlsx sheets - return tabular
library(readxl)

args = commandArgs(trailingOnly=TRUE)

file.rename(args[1],"input.xlsx")
sheet<-read_excel("input.xlsx",sheet=args[2])
write.table(sheet,"out.tabular",sep="\t",row.names=FALSE)

}