tests/testthat/test-README.R

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")
})

Try the pxweb package in your browser

Any scripts or data that you put into this service are public.

pxweb documentation built on May 29, 2024, 2:28 a.m.