gitignore sources_non_forked_cache

sources_non_forked/ale/ale_linters/r/languageserver.vim

@@ -0,0 +1,27 @@
+" Author: Eric Zhao <21zhaoe@protonmail.com>
+" Author: ourigen <https://github.com/ourigen>
+" Description: Implementation of the Language Server Protocol for R.
+
+call ale#Set('r_languageserver_cmd', 'languageserver::run()')
+call ale#Set('r_languageserver_config', {})
+
+function! ale_linters#r#languageserver#GetCommand(buffer) abort
+    let l:cmd_string = ale#Var(a:buffer, 'r_languageserver_cmd')
+
+    return 'Rscript --no-save --no-restore --no-site-file --no-init-file -e ' . ale#Escape(l:cmd_string)
+endfunction
+
+function! ale_linters#r#languageserver#GetProjectRoot(buffer) abort
+    let l:project_root = ale#path#FindNearestFile(a:buffer, '.Rprofile')
+
+    return !empty(l:project_root) ? fnamemodify(l:project_root, ':h') : fnamemodify(a:buffer, ':h')
+endfunction
+
+call ale#linter#Define('r', {
+\   'name': 'languageserver',
+\   'lsp': 'stdio',
+\   'lsp_config': {b -> ale#Var(b, 'r_languageserver_config')},
+\   'executable': 'Rscript',
+\   'command': function('ale_linters#r#languageserver#GetCommand'),
+\   'project_root': function('ale_linters#r#languageserver#GetProjectRoot')
+\})

sources_non_forked/ale/ale_linters/r/lintr.vim

@@ -0,0 +1,35 @@
+" Author: Michel Lang <michellang@gmail.com>, w0rp <devw0rp@gmail.com>,
+"         Fenner Macrae <fmacrae.dev@gmail.com>,
+"         ourigen <https://github.com/ourigen>
+" 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()')
+" A reasonable alternative default:
+"   get(g:, 'ale_r_lintr_options', 'with_defaults(object_usage_linter = NULL)')
+
+
+let g:ale_r_lintr_lint_package = get(g:, 'ale_r_lintr_lint_package', 0)
+
+function! ale_linters#r#lintr#GetCommand(buffer) abort
+    if ale#Var(a:buffer, 'r_lintr_lint_package')
+        let l:lint_cmd = 'lint_package(cache = FALSE, linters = '
+        \   . ale#Var(a:buffer, 'r_lintr_options') . ')'
+    else
+        let l:lint_cmd = 'lint(cache = FALSE, commandArgs(TRUE), '
+        \   . ale#Var(a:buffer, 'r_lintr_options') . ')'
+    endif
+
+    let l:cmd_string = 'suppressPackageStartupMessages(library(lintr));'
+    \   . l:lint_cmd
+
+    return 'Rscript --no-save --no-restore --no-site-file --no-init-file -e ' . ale#Escape(l:cmd_string) . ' %t'
+endfunction
+
+call ale#linter#Define('r', {
+\   'name': 'lintr',
+\   'executable': 'Rscript',
+\   'cwd': '%s:h',
+\   'command': function('ale_linters#r#lintr#GetCommand'),
+\   'callback': 'ale#handlers#gcc#HandleGCCFormat',
+\   'output_stream': 'both',
+\})