The goal of featurette is to feature and test out projects and packages!
Repo: https://github.com/EvaMaeRey/featurette
new_experiment <- function(name){
dir <- paste0(Sys.Date(),"-", name)
dir.create(dir)
readLines("template.Rmd") |>
writeLines(con = paste0(dir,"/", name, ".Rmd"))
}
new_experiment(name = "bounding-box-question")
build_mp4 <- function(name){
# create list of htmls
webpages <- fs::dir_ls(type = "file", recurse = T, glob = "*.html") %>% rev()
# grab target html
target_html <- webpages[grep(name, webpages)][1]
# build mp4
xaringanBuilder::build_mp4(input = target_html, fps = 1.4)
# xaringanBuilder::build_pdf(input = target_html)
}
build_mp4("facet-ref-shadow")