ss = function(x, pattern, slot=1, ...){
sapply(strsplit(x,pattern,...), "[", slot)
}
strip_quotes = function(x){
substr(x, 2, nchar(x)-1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.