tests/testthat/test-example.R

context("example")

test_that("add tests", {
  filename <- "example.Rmd"
  unlink(filename)
  expect_false(filename %in% dir())
  build_example(open = FALSE)
  expect_true(filename %in% dir())
  expect_true(any(grepl("Example Document", readLines(filename))))
  unlink(filename)
})
datacamp/tutorial documentation built on Nov. 2, 2022, 9:02 p.m.