add_credits <-
function() {
## Left credit
## grid::grid.text("vijaylulla.com", x=0.01, y=0.01, just='left',
## gp=grid::gpar(fontsize=8, col="#888888"))
## Right credit
grid::grid.text(strftime(Sys.time(), "Plotted on: %Y.%m.%d %H:%M:%S%z"),
x=0.99, y=0.01, just='right',
gp=grid::gpar(fontsize=8, col="#888888"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.