allMessages <- function(data){
ret <- data$events[data$events$type=='message', c('stTime','message')]
names(ret) <- c("time", "message")
ret
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.