tests/testthat/test-countwords.R

test_that("You can count on count_words()", {
  testthat::skip_on_os("linux")
  rmarkdown::draft(file = "test", template = "html_vignette",
                   package = "rmarkdown", create_dir = TRUE, edit = FALSE)
  testthat::expect_equal(iheiddown::count_words("test/test.Rmd"), 241)
  unlink("test", recursive = TRUE)
})

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.