The goal of rsciinema is to provide an R analog to asciinema https://asciinema.org/ with the correct highlighting and output, with bindings for Shiny and RMarkdown. ## Installation
You can install the released version of rsciinema from CRAN with:
remotes::install_github("romainfrancois/rsciinema")
This is a basic example of making an output scene:
library(rsciinema)
data = asciicast( "# a comment\niris %>% \n dplyr::group_by(Species) %>%\n dplyr::summarise_all(mean) \n # a new line" )
asciinema(data = data)
You can also write out the file
tfile = tempfile(fileext = ".cast")
write_asciicast(data, tfile)
asciinema( tfile )
You can encode typos if youwant was well
library(rsciinema)
input = paste0("# 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 )
Fixing the backspace
asciinema(data = data)
fixed_data = data
fixed_data$text[21] = backspace()
fixed_data$text[22:24] = ""
asciinema(data = fixed_data)