r-lintr: add lintr support

Author: domodwyer

.pre-commit-hooks.yaml

@@ -82,4 +82,13 @@
   files: (?i)\.R$
   pass_filenames: true
   minimum_pre_commit_version: 0.15.0
-  description: 'Run stylr to format R code'
+  description: 'Run stylr to format R code'
+
+- id: r-lintr
+  name: 'Analyse with lintr'
+  entry: run-r-lintr.R
+  language: 'script'
+  files: (?i)\.R$
+  pass_filenames: true
+  minimum_pre_commit_version: 0.15.0
+  description: 'Run lintr against R code'

README.md

@@ -14,6 +14,7 @@ Hooks:
   without forcing the `--fix` argument
 * `rust-clippy`: runs `cargo clippy` lints in the repo root
 * `r-stylr`: runs [`stylr`] to format R code
+* `r-lintr`: static analysis of R code with [`lintr`]
 
 ## Example config
 
@@ -60,6 +61,9 @@ repos:
 
       - id: r-stylr
         stages: [commit, push]
+      
+      - id: r-lintr
+        stages: [commit, push]
 ```
 
 ## Tagged TODOs
@@ -98,4 +102,5 @@ When adding new hooks you can run `pre-commit try-repo .` for a quick syntax che
 [`pre-commit`]: https://pre-commit.com
 [dep]: https://github.com/golang/dep
 [`post-checkout`]: https://git-scm.com/docs/githooks#_post_checkout
-[`stylr`]: https://styler.r-lib.org/
+[`stylr`]: https://styler.r-lib.org/
+[`lintr`]: https://github.com/jimhester/lintr

run-r-lintr.R

@@ -0,0 +1,11 @@
+#!/usr/bin/env Rscript
+
+files <- commandArgs(trailingOnly=TRUE)
+tryCatch(
+  {
+    for (f in files) {
+      lintr::lint(f)
+    }
+  }, 
+  warning = function(w) stop(conditionMessage(w), call. = FALSE)
+)