tests/testthat/test-preview.R

test_that("Live preview with preview_stop() works", {
  expect_message(iheiddown::preview_stop("test_stop/test_stop.Rmd"),
                           "Preview stopped")
})
# # Hacky test since the function is not really testable.
# test_that("Live preview with preview_stop() works", {
#   expect_error(suppressWarnings(iheiddown::preview_start("test_stop/test_stop.Rmd")),
#                            paste0("The file '", getwd(),
#                                   "/test_stop/test_stop.Rmd' does not exist."))
# })

Try the iheiddown package in your browser

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

iheiddown documentation built on May 13, 2022, 9:06 a.m.