library(xlsx)
my.wb <- createWorkbook()
my.sheet <- createSheet(wb=my.wb, sheetName="WorkSheet-1")
my.row <- createRow(sheet=my.sheet, rowIndex = 1:3)
my.cell <- createCell(row=my.row, colIndex = 1:15)
setCellValue(my.cell[[2,3]],"Workbook created from within R")
saveWorkbook(wb=my.wb, file="./data/New Excel Workbook.xlsx")