#!/usr/bin/env Rscript

d <- file.path (rprojroot::find_root("DESCRIPTION"), "R")
linters <- lintr::default_linters
linters <- linters [!names (linters) %in%
    c ("function_left_parentheses_linter")]
lintr::lint_dir (d, linters = linters)