ale/ale_linters/r/lintr.vim

36 lines
1.2 KiB
VimL
Raw Normal View History

2018-02-04 18:57:52 +00:00
" Author: Michel Lang <michellang@gmail.com>, w0rp <devw0rp@gmail.com>,
" Fenner Macrae <fmacrae.dev@gmail.com>
2017-07-03 21:34:22 +00:00
" Description: This file adds support for checking R code with lintr.
let g:ale_r_lintr_options = get(g:, 'ale_r_lintr_options', 'with_defaults()')
2017-08-15 18:37:38 +00:00
" A reasonable alternative default:
" get(g:, 'ale_r_lintr_options', 'with_defaults(object_usage_linter = NULL)')
2017-08-15 18:37:38 +00:00
2018-02-04 18:57:52 +00:00
let g:ale_r_lintr_lint_package = get(g:, 'ale_r_lintr_lint_package', 0)
2017-07-03 21:34:22 +00:00
function! ale_linters#r#lintr#GetCommand(buffer) abort
2018-02-04 18:57:52 +00:00
if ale#Var(a:buffer, 'r_lintr_lint_package')
2018-02-05 19:33:23 +00:00
let l:lint_cmd = 'lint_package(cache = FALSE, linters = '
2018-02-05 17:54:15 +00:00
\ . ale#Var(a:buffer, 'r_lintr_options') . ')'
2018-02-04 18:57:52 +00:00
else
2018-02-05 17:54:15 +00:00
let l:lint_cmd = 'lint(cache = FALSE, commandArgs(TRUE), '
\ . ale#Var(a:buffer, 'r_lintr_options') . ')'
2018-02-04 18:57:52 +00:00
endif
let l:cmd_string = 'suppressPackageStartupMessages(library(lintr));'
2018-02-05 19:33:23 +00:00
\ . l:lint_cmd
2018-02-01 02:06:35 +00:00
2017-07-03 21:34:22 +00:00
return ale#path#BufferCdString(a:buffer)
\ . 'Rscript -e '
\ . ale#Escape(l:cmd_string) . ' %t'
2017-07-03 21:34:22 +00:00
endfunction
call ale#linter#Define('r', {
\ 'name': 'lintr',
\ 'executable': 'Rscript',
\ 'command_callback': 'ale_linters#r#lintr#GetCommand',
\ 'callback': 'ale#handlers#gcc#HandleGCCFormat',
\ 'output_stream': 'both',
\})