tests/testthat/test-manual.R

In InseeFrLab/utilitr-template: Templates for the utilitR Project

testthat::context("Manual check for the documentation")


destdir <- tempdir()

unlink(sprintf("%s/test-utilitr", destdir))
dir.create(sprintf("%s/test-utilitr", destdir))

setwd(sprintf("%s/test-utilitr", destdir))


rmarkdown::draft("index.Rmd", template='utilitr', package='utilitr', edit = FALSE)


# TEST HTML --------------------

testthat::test_that(
  "Gitbook version is fine", {
    testthat::skip_on_ci()
    bookdown::render_book(sprintf("%s/test-utilitr/index.Rmd", destdir),
                          output_dir = sprintf("%s/test-utilitr/_public", destdir),
                          output_format = 'utilitr::html_document')
    rstudioapi::viewer("_public/index.html")
  }
)

# TEST BS4 --------------------------------

testthat::test_that(
  "bs4 version is fine", {
    testthat::skip_on_ci()
    bookdown::render_book(sprintf("%s/test-utilitr/index.Rmd", destdir),
                          output_dir = sprintf("%s/test-utilitr/_public_bs4", destdir),
                          output_format = 'utilitr::bs4_utilitr')
    rstudioapi::viewer("_public/index.html")
  }
)


# TEST PDF ----------------------

testthat::test_that(
  "PDF version is fine", {
    testthat::skip_on_ci()
    utilitr::pdf_document()
    rstudioapi::viewer("_pagedown_output/DocumentationR.pdf")
  }
)

# servr::httd()


# TEST PREZ ------


destdir <- tempdir()

unlink(sprintf("%s/test-utilitr", destdir))
dir.create(sprintf("%s/test-utilitr", destdir))

setwd(sprintf("%s/test-utilitr", destdir))

rmarkdown::draft("slides.Rmd", template='utilitr_presentation', package='utilitr', edit = FALSE)

rmarkdown::render(sprintf("%s/test-utilitr/slides.Rmd", destdir),
                      output_format = 'utilitr::utilitr_presentation')