tests/testthat/test-README.R

In pxweb: R Interface to PXWEB APIs

context("repo README")

test_that("README works as expected", {
  skip_if_not(on_github_actions())
  
  root_path <- get_root_path()
  fp <- file.path(root_path, "README.Rmd")
  
  expect_message(output <- capture.output(krm <- knitr::knit(fp, output = "tmp.md")),
                 regexp = "output file: tmp.md")
  file.remove("tmp.md")
  
})