data-raw/asciicast_examples.R

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")
eheinzen/mayoshiny documentation built on Aug. 16, 2021, 9:59 a.m.