test_that("linting", {
skip_on_covr()
lints <- lintr::lint_dir("../../R")
if (length(lints) != 0) {
print("")
print(lints)
fail("Linting failed")
} else {
succeed()
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.