test_that("Code is lint-free", {
res_r <- lintr::lint_dir("R", linters = selectLinters())
expect_length(res_r, 0)
res_tests <- lintr::lint_dir("tests", linters = selectLinters())
expect_length(res_tests, 0)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.