library(RExcelXML)
f = "myChart.xlsx"
if(file.exists(f))
unlink(f)
e = excelDoc(f, create = TRUE, "inst/SampleDocs/TwoColData.xlsx")
w = workbook(e)
sh = w[["Sheet1"]]
o = addChart(sh, NULL)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.