as.environment.xts <- function(x) {
e <- new.env()
lapply(1:NCOL(x), function(.) assign(colnames(x)[.], x[,.],envir=e))
e
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.