170 lines
3.9 KiB
JSON
170 lines
3.9 KiB
JSON
{
|
|
"library": {
|
|
"prefix": "lib",
|
|
"body": [
|
|
"library(${1:package})"
|
|
]
|
|
},
|
|
"require": {
|
|
"prefix": "req",
|
|
"body": [
|
|
"require(${1:package})"
|
|
]
|
|
},
|
|
"source": {
|
|
"prefix": "src",
|
|
"body": [
|
|
"source(\"${1:file.R}\")"
|
|
]
|
|
},
|
|
"return": {
|
|
"prefix": "ret",
|
|
"body": "return(${1:code})"
|
|
},
|
|
"matrix": {
|
|
"prefix": "mat",
|
|
"body": "matrix(${1:data}, nrow = ${2:rows}, ncol = ${3:cols})"
|
|
},
|
|
"setGeneric": {
|
|
"prefix": "sg",
|
|
"body": [
|
|
"setGeneric(\"${1:generic}\", function(${2:x, ...}) {",
|
|
" standardGeneric(\"${1:generic}\")",
|
|
"})\n"
|
|
]
|
|
},
|
|
"setMethod": {
|
|
"prefix": "sm",
|
|
"body": [
|
|
"setMethod(\"${1:generic}\", ${2:class}, function(${2:x, ...}) {",
|
|
" ${0}",
|
|
"})\n"
|
|
]
|
|
},
|
|
"setClass": {
|
|
"prefix": "sc",
|
|
"body": [
|
|
"setClass(\"${1:Class}\", slots = c(${2:name = \"type\"}))\n"
|
|
]
|
|
},
|
|
"if": {
|
|
"prefix": "if",
|
|
"body": [
|
|
"if (${1:condition}) {",
|
|
" ${0}",
|
|
"}\n"
|
|
]
|
|
},
|
|
"else": {
|
|
"prefix": "el",
|
|
"body": [
|
|
"else {",
|
|
" ${0}",
|
|
"}\n"
|
|
]
|
|
},
|
|
"else if": {
|
|
"prefix": "ei",
|
|
"body": [
|
|
"else if (${1:condition}) {",
|
|
" ${0}",
|
|
"}\n"
|
|
]
|
|
},
|
|
"function": {
|
|
"prefix": "fun",
|
|
"body": [
|
|
"${1:name} <- function(${2:variables}) {",
|
|
" ${0}",
|
|
"}\n"
|
|
]
|
|
},
|
|
"for": {
|
|
"prefix": "for",
|
|
"body": [
|
|
"for (${1:variable} in ${2:vector}) {",
|
|
" ${0}",
|
|
"}\n"
|
|
]
|
|
},
|
|
"while": {
|
|
"prefix": "while",
|
|
"body": [
|
|
"while (${1:condition}) {",
|
|
" ${0}",
|
|
"}\n"
|
|
]
|
|
},
|
|
"switch": {
|
|
"prefix": "switch",
|
|
"body": [
|
|
"switch (${1:object},",
|
|
" ${2:case} = ${3:action}",
|
|
")\n"
|
|
]
|
|
},
|
|
"apply": {
|
|
"prefix": "apply",
|
|
"body": "apply(${1:array}, ${2:margin}, ${3:...})"
|
|
},
|
|
"lapply": {
|
|
"prefix": "lapply",
|
|
"body": "lapply(${1:list}, ${2:function})"
|
|
},
|
|
"sapply": {
|
|
"prefix": "sapply",
|
|
"body": "sapply(${1:list}, ${2:function})"
|
|
},
|
|
"mapply": {
|
|
"prefix": "mapply",
|
|
"body": "mapply(${1:function}, ${2:...})"
|
|
},
|
|
"tapply": {
|
|
"prefix": "tapply",
|
|
"body": "tapply(${1:vector}, ${2:index}, ${3:function})"
|
|
},
|
|
"vapply": {
|
|
"prefix": "vapply",
|
|
"body": "vapply(${1:list}, ${2:function}, FUN.VALUE = ${3:type}, ${4:...})"
|
|
},
|
|
"rapply": {
|
|
"prefix": "rapply",
|
|
"body": "rapply(${1:list}, ${2:function})"
|
|
},
|
|
"timestamp": {
|
|
"prefix": "ts",
|
|
"body": "# ${CURRENT_DAY_NAME_SHORT} ${CURRENT_MONTH_NAME_SHORT} ${CURRENT_DATE} ${CURRENT_HOUR}:${CURRENT_MINUTE}:${CURRENT_SECOND} ${CURRENT_YEAR} ------------------------------\n"
|
|
},
|
|
"shinyapp": {
|
|
"prefix": "shinyapp",
|
|
"body": [
|
|
"library(shiny)",
|
|
"",
|
|
"ui <- fluidPage(",
|
|
" ${0}",
|
|
")",
|
|
"",
|
|
"server <- function(input, output, session) {",
|
|
" ",
|
|
"}",
|
|
"",
|
|
"shinyApp(ui, server)\n"
|
|
]
|
|
},
|
|
"shinymod": {
|
|
"prefix": "shinymod",
|
|
"body": [
|
|
"${1:name}_UI <- function(id) {",
|
|
" ns <- NS(id)",
|
|
" tagList(",
|
|
" ${0}",
|
|
" )",
|
|
"}",
|
|
"",
|
|
"${1:name} <- function(input, output, session) {",
|
|
" ",
|
|
"}\n"
|
|
]
|
|
}
|
|
}
|