library(asciicast)
script <- "inst/examples/setup.R"
cast <- record(script)
svg <- "man/figures/setup.svg"
asciicast::write_svg(cast, svg, window = TRUE)
fs::dir_delete("my_app")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.