listify <- function(x,y,z){
###fxn will listify a long form table
###x: unique key
###y: values
###z: keys
return(unique(y[which(z==x)]))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.