summaryrefslogtreecommitdiff
path: root/ale_linters/r
diff options
context:
space:
mode:
authorMichael Quinn <msquinn@google.com>2018-01-29 20:18:14 -0800
committerGitHub <noreply@github.com>2018-01-29 20:18:14 -0800
commitbb095df25e7fb6e3090061572bf9b1c472ac550f (patch)
tree134b011039739630356057899b2918c5f4fd0271 /ale_linters/r
parentc589e3d57d2a4d37445a4b97648c08e1b9741304 (diff)
downloadale-bb095df25e7fb6e3090061572bf9b1c472ac550f.zip
Call lintr library before linting
This solves namespace issues related to the objects used to set linting options.
Diffstat (limited to 'ale_linters/r')
-rw-r--r--ale_linters/r/lintr.vim12
1 files changed, 8 insertions, 4 deletions
diff --git a/ale_linters/r/lintr.vim b/ale_linters/r/lintr.vim
index 86b591c2..9db63c7c 100644
--- a/ale_linters/r/lintr.vim
+++ b/ale_linters/r/lintr.vim
@@ -1,14 +1,17 @@
" Author: Michel Lang <michellang@gmail.com>, w0rp <devw0rp@gmail.com>
" Description: This file adds support for checking R code with lintr.
-let g:ale_r_lintr_options =
-\ get(g:, 'ale_r_lintr_options', 'lintr::with_defaults()')
+let g:ale_r_lintr_options = get(g:, 'ale_r_lintr_options', 'with_defaults()')
" A reasonable alternative default:
-" \ get(g:, 'ale_r_lintr_options', 'lintr::with_defaults(object_usage_linter = NULL)')
+" get(g:, 'ale_r_lintr_options', 'with_defaults(object_usage_linter = NULL)')
function! ale_linters#r#lintr#GetCommand(buffer) abort
+ let l:cmd_string = 'suppressPackageStartupMessages(library(lintr));'
+ \ . 'lint(cache = FALSE, commandArgs(TRUE),'
+ \ . ale#Var(a:buffer, 'r_lintr_options') . ')'
return ale#path#BufferCdString(a:buffer)
- \ . 'Rscript -e ' . ale#Escape('lintr::lint(commandArgs(TRUE)[1], eval(parse(text = commandArgs(TRUE)[2])))') . ' %t' . ' ' . ale#Escape(ale#Var(a:buffer, 'r_lintr_options'))
+ \ . 'Rscript -e '
+ \ . ale#Escape(l:cmd_string) . ' %t'
endfunction
call ale#linter#Define('r', {
@@ -18,3 +21,4 @@ call ale#linter#Define('r', {
\ 'callback': 'ale#handlers#gcc#HandleGCCFormat',
\ 'output_stream': 'both',
\})
+