| test_theme <- function(theme) { |
| test_that(paste(theme, "theme"), { |
| # don't run on cran because pandoc is required |
| skip_on_cran() |
| |
| # work in a temp directory |
| dir <- tempfile() |
| dir.create(dir) |
| oldwd <- setwd(dir) |
| on.exit(setwd(oldwd), add = TRUE) |
| |
| # create a draft of a presentation |
| testdoc <- "testdoc.Rmd" |
| rmarkdown::draft(testdoc, |
| system.file("rmarkdown", "templates", "revealjs_presentation", |
| package = "revealjs.ids"), |
| create_dir = FALSE, |
| edit = FALSE) |
| |
| # render it with the specified theme |
| capture.output({ |
| output_file <- tempfile(fileext = ".html") |
| output_format <- revealjs_presentation(theme = theme) |
| rmarkdown::render(testdoc, |
| output_format = output_format, |
| output_file = output_file, |
| quiet = TRUE) |
| expect_true(file.exists(output_file)) |
| }) |
| }) |
| } |
| |
| # test all themes |
| sapply(revealjs.ids:::revealjs_themes(), test_theme) |