library(dplyr)
lintr::lint_package() %>%
as.data.frame %>%
group_by(linter) %>%
tally(sort = TRUE) %$%
sprintf("linters: with_defaults(\n %s\n dummy_linter = NULL\n )\n",
paste0(linter, " = NULL, # ", n, collapse = "\n ")) %>%
cat(file = ".lintr")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.