Code
sapply(frames$frames[[14]][[2]]$screen$lines, function(x) x[[1]][[1]])
Output
[1] "> letters "
[2] " [1] \"a\" \"b\" \"c\" \"d\" \"e\" \"f\" \"g\" \"h\" \"i\" \"j\" \"k\" \"l\" \"m\" \"n\" \"o\" \"p\" \"q\" \"r\" \"s\""
[3] "[20] \"t\" \"u\" \"v\" \"w\" \"x\" \"y\" \"z\" "
[4] "> message('hi there') "
[5] "hi there "
[6] " "
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.