neoconfig/UltiSnips/r.snippets
2024-07-30 22:59:49 +02:00

75 lines
1.2 KiB
Plaintext

global !p
def complete(t, opts):
if t:
opts = [m[len(t):] for m in opts if m.startswith(t)]
if len(opts) == 1:
return opts[0]
return "(" + '|'.join(opts) + ")"
endglobal
snippet template.shiny "This creates a basic shiny app"
$1 <- fluidPage(title="My quick app",
tags$h1($2)
)
$3 <- function (input,output,session) {
$4
}
shinyApp($1,$3)
endsnippet
snippet csv "read.csv"
read.csv($1, stringsAsFactors=FALSE)
endsnippet
snippet lsf "list.files"
list.files($1)
endsnippet
snippet head "head"
head($1)
$0
endsnippet
snippet hist "head"
head($1)
$0
endsnippet
snippet äđĐ "An intelligent Doxygen -- I'll improve it further" A
`!p
if snip.c == "":
curr_row = int(vim.eval('line(\'.\')'))
fun_name = vim.eval('getline({},{})'.format(curr_row+8, curr_row+8))[0]
result = fun_name.split('<-')[0]
snip.rv = f"\
#' {result}"
`
#'
#' ${1: Description}
#'
#' @param ${2: first parameter}
#' @usage ...
#' @export
$0
endsnippet
snippet "(#' @param.*)" "new param" r
`!p snip.rv = match.group(1) + '\n' + '#\' @param'` $0
endsnippet
snippet "(#' .*)\.\.\." "doxygen new line" r
`!p snip.rv = match.group(1) + '\n' + '#\''` $0
endsnippet
snippet today
`date +%Y-%m-%d` $0
endsnippet