tests/testthat/test_demonstrations.R

In ThierryO/corpident: A Demonstration on How To Add a Corporate Identity to Reproducible Research

context("poster_demo.Rnw")
expect_identical(
  knitr::knit2pdf(
    input = system.file("demonstrations/poster_demo.Rnw", package = "corpident"), 
    compiler = "xelatex", 
    encoding = "UTF-8"
  ),
  "poster_demo.pdf"
)
file.remove(list.files(pattern = "^poster_demo", recursive = TRUE, full.names = TRUE))
unlink("figure", recursive = TRUE, force = TRUE)

temp_dir <- normalizePath(tempdir(), winslash = "/")
context("rw-FAQ.Rmd")
expect_identical(
  rmarkdown::render(
    input = system.file("demonstrations/rw-FAQ.Rmd", package = "corpident"), 
    output_format = "ci_report_pdf", 
    output_file = paste0(temp_dir, "/rw-FAQ-report.pdf"),
    encoding = "UTF-8"
  ),
  paste0(temp_dir, "/rw-FAQ-report.pdf")
)

expect_identical(
  rmarkdown::render(
    input = system.file("demonstrations/rw-FAQ.Rmd", package = "corpident"), 
    output_format = "ci_report_html", 
    output_file = paste0(temp_dir, "/rw-FAQ-report.html"),
    encoding = "UTF-8"
  ),
  paste0(temp_dir, "/rw-FAQ-report.html")
)

context("slides_demo.Rmd")
expect_match(
  rmarkdown::render(
    input = system.file("demonstrations/slides_demo.Rmd", package = "corpident"), 
    output_format = "ci_report_pdf", 
    output_file = "slides_demo_report.pdf",
    encoding = "UTF-8"
  ),
  regexp = "slides_demo_report\\.pdf$"
)
expect_match(
  rmarkdown::render(
    input = system.file("demonstrations/slides_demo.Rmd", package = "corpident"), 
    output_format = "ci_slides_pdf", 
    output_file = "slides_demo_slide.pdf",
    encoding = "UTF-8"
  ),
  regexp = "slides_demo_slide\\.pdf$"
)
expect_match(
  rmarkdown::render(
    input = system.file("demonstrations/slides_demo.Rmd", package = "corpident"), 
    output_format = "ci_handouts_pdf", 
    output_file = "slides_demo_handout.pdf",
    encoding = "UTF-8"
  ),
  regexp = "slides_demo_handout\\.pdf$"
)
expect_match(
  rmarkdown::render(
    input = system.file("demonstrations/slides_demo.Rmd", package = "corpident"), 
    output_format = "ci_report_html", 
    output_file = "slides_demo.html",
    encoding = "UTF-8"
  ),
  regexp = "slides_demo\\.html$"
)