if exists("g:disable_r_ftplugin") || has("nvim")

finish

runtime r-plugin/common_global.vim

if exists("g:rplugin_failed")

finish

runtime r-plugin/common_buffer.vim

if !exists("b:did_ftplugin") && !exists("g:rplugin_runtime_warn")

runtime ftplugin/rhelp.vim

if !exists("b:did_ftplugin")

call RWarningMsgInp("Your runtime files seems to be outdated.\nSee: https://github.com/jalvesaq/R-Vim-runtime")

let g:rplugin_runtime_warn = 1

endif

function! RhelpIsInRCode(vrb)

let lastsec = search('^\\[a-z][a-z]*{', "bncW")

let secname = getline(lastsec)

if line(".") > lastsec && (secname =~ '^\\usage{' || secname =~ '^\\examples{' || secname =~ '^\\dontshow{' || secname =~ '^\\dontrun{' || secname =~ '^\\donttest{' || secname =~ '^\\testonly{')

return 1

else

if a:vrb

call RWarningMsg("Not inside an R section.")

endif

return 0

endif

function! RhelpComplete(findstart, base)

if a:findstart

let line = getline('.')

let start = col('.') - 1

while start > 0 && (line[start - 1] =~ '\w' || line[start - 1] == '\')

let start -= 1

endwhile

return start

else

let resp = []

let hwords = ['\Alpha', '\Beta', '\Chi', '\Delta', '\Epsilon',

\ '\Eta', '\Gamma', '\Iota', '\Kappa', '\Lambda', '\Mu', '\Nu',

\ '\Omega', '\Omicron', '\Phi', '\Pi', '\Psi', '\R', '\Rdversion',

\ '\Rho', '\S4method', '\Sexpr', '\Sigma', '\Tau', '\Theta', '\Upsilon',

\ '\Xi', '\Zeta', '\acronym', '\alias', '\alpha', '\arguments',

\ '\author', '\beta', '\bold', '\chi', '\cite', '\code', '\command',

\ '\concept', '\cr', '\dQuote', '\delta', '\deqn', '\describe',

\ '\description', '\details', '\dfn', '\docType', '\dontrun', '\dontshow',

\ '\donttest', '\dots', '\email', '\emph', '\encoding', '\enumerate',

\ '\env', '\epsilon', '\eqn', '\eta', '\examples', '\file', '\format',

\ '\gamma', '\ge', '\href', '\iota', '\item', '\itemize', '\kappa',

\ '\kbd', '\keyword', '\lambda', '\ldots', '\le',

\ '\link', '\linkS4class', '\method', '\mu', '\name', '\newcommand',

\ '\note', '\nu', '\omega', '\omicron', '\option', '\phi', '\pi',

\ '\pkg', '\preformatted', '\psi', '\references', '\renewcommand', '\rho',

\ '\sQuote', '\samp', '\section', '\seealso', '\sigma', '\source',

\ '\special', '\strong', '\subsection', '\synopsis', '\tab', '\tabular',

\ '\tau', '\testonly', '\theta', '\title', '\upsilon', '\url', '\usage',

\ '\value', '\var', '\verb', '\xi', '\zeta']

for word in hwords

if word =~ '^' . escape(a:base, '\')

call add(resp, {'word': word})

endif

endfor

return resp

endif

let b:IsInRCode = function("RhelpIsInRCode")

let b:rplugin_nonr_omnifunc = "RhelpComplete"

call RCreateStartMaps()

call RCreateEditMaps()

call RCreateSendMaps()

call RControlMaps()

call RCreateMaps("nvi", '<Plug>RSetwd', 'rd', ':call RSetWD()')

if has("gui_running")

runtime r-plugin/gui_running.vim

call MakeRMenu()

call RSourceOtherScripts()

if exists("b:undo_ftplugin")

let b:undo_ftplugin .= " | unlet! b:IsInRCode"

let b:undo_ftplugin = "unlet! b:IsInRCode"