load.boxplot <-
function(filename=NULL, name='bxpdata'){
if( is.null(filename) | !file.exists(filename) )
filename <- file.choose()
load(filename)
assign(name, result, pos=1)
rm(result)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.