#list all available variables that are available in the global environment
available_variables<-ls()[sapply(ls(), function(x) class(get(x))) %in% c('numeric','integer') ]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.