render_skeleton <- function(x) {
tmp <- tempfile()
dir.create(tmp)
on.exit(unlink(tmp, recursive = TRUE), add = TRUE)
src <- system.file("rmarkdown/templates", x, "skeleton/skeleton.Rmd", package = "bslib")
# Comment out bs_themer() since that needs a shiny runtime
txt <- sub("^bslib::bs_themer()", "#bslib::bs_themer()", readLines(src))
writeLines(txt, file.path(tmp, "tmp.Rmd"))
rmarkdown::render(file.path(tmp, "tmp.Rmd"), quiet = TRUE)
}
test_that("Rmd skeletons can be render cleanly", {
skip_if_not(
rmarkdown::pandoc_available("1.12.3"),
"Pandoc 1.12.3 or higher is required"
)
expect_error(render_skeleton("legacy"), NA)
expect_error(render_skeleton("new"), NA)
withr::with_namespace(
"shiny",
expect_error(render_skeleton("real-time"), NA)
)
})
Generated by dwww version 1.15 on Wed May 22 19:16:46 CEST 2024.