DANGERgetSharing <- function()
{
return(get("sharing",pos=1))
}
DANGERgetparam <- function(name)
{
return(get(name,pos=1))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.