frames.md
In asciicast: Create 'Ascii' Screen Casts from R Scripts

load_frames

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] "                                                                                "