Take an R Script and make it into a gif.

script_to_gif.R

library(rsciinema)


input = paste0("library(magrittr); # a comment is a gra", backspace(), "eat thing to do", 
               "\niris %>% \n  dplyr::group_by(Species) %>%\n  ", 
               "dplyr::summarise_all(mean) \n # a new line")
data = asciicast( input )


json = rsciinema::json_asciicast(data)
tfile = tempfile(fileext = ".json")
writeLines(json, con = tfile)
gif = tempfile(fileext = ".gif")
cmd = paste("asciicast2gif", tfile, gif)
system(cmd)

svg = tempfile(fileext = ".svg")
cmd = paste("cat", tfile, "|", "svg-term --out ", svg)
system(cmd)

input = paste0("library(magrittr); # a comment is a gra", backspace(), "eat thing to do", 
               "\niris %>% \n  dplyr::group_by(Species) %>%\n  ", 
               "dplyr::summarise_all(mean) \n # a new line")
data = asciicast( input )

# extend time to look at the data
ind = grep("A tibble", data$text)
data$time[ind + 1] = data$time[ind + 1] + 5
json = rsciinema::json_asciicast(data)

tfile = tempfile(fileext = ".json")
writeLines(json, con = tfile)
svg = tempfile(fileext = ".svg")
cmd = paste("cat", tfile, "|", "svg-term --out ", svg)
system(cmd)