library(RExcelXML)
library(XML)
library(Rcompression)
#source("R/addSheet.R")
f = "newSheet.xlsx"
if(file.exists(f))
unlink(f)
e = excelDoc(f, create = TRUE)
sh = addWorksheet(e, "bob")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.