adaptalint is a package to infer the code style from one package and use it to check another.
This makes linting much less painful, since you don't need to do as much configuration, and makes it easy to compare your code quality to real examples.
This works by running lintr on the first package to find all issues, to build up a picture of its style. Then when this style is applied to a second package, issues are ignored if they are common in the first package, since they are assumed to be acceptable.
You can install adaptalint from github with:
# install.packages("devtools")
devtools::install_github("maxconway/adaptalint")# Downloading the source of this package
path <- workdir(clone("https://github.com/maxconway/adaptalint", tempfile()))
# And extracting the style
style_adaptalint <- extract_style(path)
# There are also some included pre-computed styles from popular packages
data("style_purrr")
# Check against this package against another to see how it measures up
a <- lint_with_style(package = path, style = style_purrr)
# Or check it against itself, highlighting only those lint errors that the package judges as important
a <- lint_with_style(package = path, style = style_adaptalint)