packrat/lib/x86_64-pc-linux-gnu/3.2.3/rmarkdown/tests/testthat/test-formats.R

In etsakl/DasyMapR: Geographical ETRS-LAEA Grid Based Dasymetric Mapping

context("formats")

test_that("formats successfully produce a document", {
  
  skip_on_cran()
  
  testFormat <- function(output_format) {
    output_file <- tempfile()
    capture.output(render("test-formats.Rmd", 
                          output_format = output_format,
                          output_file = output_file))
    expect_true(file.exists(output_file))
    output_file
  }
  
  testFormat(html_document())
  testFormat(html_fragment())
  testFormat(html_vignette())
  testFormat(ioslides_presentation())
  testFormat(slidy_presentation())
  testFormat(md_document())
  testFormat(pdf_document())
  testFormat(beamer_presentation())
  testFormat(tufte_handout())
  testFormat(word_document())

})