list_to_matrix<-function(x,item=NA){
maxlength<-max(sapply(x,length))
return(t(sapply(x,function(row,maxlength) c(row,rep(item,maxlength-length(row))),maxlength)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.