tests/testthat/test_rknit.r

In rdatsci/rt: R Tools for the Command Line

context("rknit")

test_that("rknit works for various files", {
  skip_on_cran()

  files_path = file.path("assets", "knitr")



  for (knit_file in dir(files_path, full.names = TRUE)) {
    knit_format = matchRegex(basename(knit_file), "(?<=\\.).+$")[[1]]
    out_base = matchRegex(basename(knit_file), ".+(?=\\.)")[[1]]
    out_format = matchRegex(out_base, "(?<=_).+$")[[1]]
    out_file = paste0(out_base,".",out_format)

    if (out_format == "pdf" && !pkgbuild::has_latex()) {
      skip("pdflatex not available")
    }

    expect_true(rknit(knit_file, clean = TRUE))

    expect_true(file.exists(out_file))

    # can we diverge from default?
    if (knit_format == "Rmd" && out_format == "pdf") {
      expect_true(rknit(knit_file, clean = TRUE, output_format = "html"))
      out_file = c(out_file, paste0(out_base,".html"))
    }

    # cleanup
    file.remove(out_file)
    if (knit_format == "Rnw") {
      unlink("figure", recursive = TRUE)
      file.remove(paste0(out_base, ".tex"))
    }
  }

})