21 lint

DESCRIPTION

@@ -37,7 +37,8 @@ Suggests:
     urlchecker,
     readr,
     xopen,
-    spelling
+    spelling,
+    lintr
 Remotes:
     github::jmbarbone/fuj,
     github::jmbarbone/mark

NAMESPACE

@@ -13,6 +13,7 @@ export(.Fixmes)
 export(.FixmesHere)
 export(.GitBranchPrompt)
 export(.GitPrepareCommitMsg)
+export(.LintFile)
 export(.NewsUrls)
 export(.NiceMessage)
 export(.OpenFile)

NEWS.md

@@ -1,5 +1,6 @@
 # Rprofile (development)
 
+* Adds `.LintFile()` for selecting individual files to `lint` (defaults to currently opened file) [#21]
 * Adds `.GitPrepareCommitMsg()` to copy one of two templates to `.git/hook/prepare-commit-msg` [#10]
 * Adds `.OpenFile()` to open a file path or an object inside a file [#6]
 

R/lint.R

@@ -0,0 +1,28 @@
+#' Lint a single file
+#'
+#' Use `lintr::lint()` to _lint_ a single file
+#'
+#' @param path The file path.  Default (`NULL`) checks for the current file open
+#'   in the source editor in **RStudio**.
+#' @param linters Passed to `linters` argument in `lintr::lint()`; however,
+#'   when passing a character vector, finds all linters with that tag.
+#' @param ... Additional arguments passed to `lintr::lint()`
+#' @returns See `lintr::lint()`
+#' @export
+.LintFile <- function(path = NULL, linters = "default", ...) {
+  fuj::require_namespace("lintr")
+
+  if (is.null(path)) {
+    fuj::require_namespace("rstudioapi")
+    path <- rstudioapi::getSourceEditorContext()$path
+  }
+
+  if (is.character(linters)) {
+    linters <- lintr::available_linters(tags = linters)$linter
+    linters <- fuj::set_names(linters)
+    linters <- lapply(linters, get, pos = asNamespace("lintr"))
+  }
+
+  path <- normalizePath(path, .Platform$file.sep, mustWork = TRUE)
+  lintr::lint(path, linters = linters,  ...)
+}