# This utility converts
# list(foo="a", bar="b")
# to the string
# "foo=a,bar=b"
#
# Author: brucehoff
###############################################################################
listToString<-function(x) {
paste(lapply(names(x), function(n,x){sprintf("%s=%s",n, x[[n]])}, x), collapse=",")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.