as_list_by_column <- function(mat){
.list <- vector(mode = 'list', length = ncol(mat))
names(.list) <- colnames(mat)
for(i in seq_along(.list)) .list[[i]] <- mat[, i]
.list
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.