write.xls <- function(x,
filename,
sheetName="fromR",
formats=NULL)
{
if(typeof(x)=="list" && !is.data.frame(x)) {
sheetName <- NULL
}
invisible(.Call("R2xls",x,filename,sheetName,formats,PACKAGE="Rexcelpoi"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.