concat_by_comma__ <-
function(l){
ret <- l[1]
if (length(l)==1) return(ret)
for (i in 2:length(l)){
ret <- paste(ret, l[i], sep=',')
}
ret
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.