test_that("spell check", {
skip_on_cran()
skip_in_covr()
skip_if_not_installed("spelling")
pkg_dir <- test_package_root()
results <- spelling::spell_check_package(pkg_dir)
if (nrow(results)) {
output <- sprintf(
"Potential spelling errors: %s\n",
paste(results$word, collapse = ", "))
stop(output, call. = FALSE)
} else {
expect_true(TRUE)
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.