129 lines
2.9 KiB
JavaScript
129 lines
2.9 KiB
JavaScript
|
ace.define("ace/snippets/r",["require","exports","module"], function(require, exports, module) {
|
||
|
|
"use strict";
|
||
|
|
|
||
|
|
exports.snippetText = "snippet #!\n\
|
||
|
|
#!/usr/bin/env Rscript\n\
|
||
|
|
\n\
|
||
|
|
# includes\n\
|
||
|
|
snippet lib\n\
|
||
|
|
library(${1:package})\n\
|
||
|
|
snippet req\n\
|
||
|
|
require(${1:package})\n\
|
||
|
|
snippet source\n\
|
||
|
|
source('${1:file}')\n\
|
||
|
|
\n\
|
||
|
|
# conditionals\n\
|
||
|
|
snippet if\n\
|
||
|
|
if (${1:condition}) {\n\
|
||
|
|
${2:code}\n\
|
||
|
|
}\n\
|
||
|
|
snippet el\n\
|
||
|
|
else {\n\
|
||
|
|
${1:code}\n\
|
||
|
|
}\n\
|
||
|
|
snippet ei\n\
|
||
|
|
else if (${1:condition}) {\n\
|
||
|
|
${2:code}\n\
|
||
|
|
}\n\
|
||
|
|
\n\
|
||
|
|
# functions\n\
|
||
|
|
snippet fun\n\
|
||
|
|
${1:name} = function (${2:variables}) {\n\
|
||
|
|
${3:code}\n\
|
||
|
|
}\n\
|
||
|
|
snippet ret\n\
|
||
|
|
return(${1:code})\n\
|
||
|
|
\n\
|
||
|
|
# dataframes, lists, etc\n\
|
||
|
|
snippet df\n\
|
||
|
|
${1:name}[${2:rows}, ${3:cols}]\n\
|
||
|
|
snippet c\n\
|
||
|
|
c(${1:items})\n\
|
||
|
|
snippet li\n\
|
||
|
|
list(${1:items})\n\
|
||
|
|
snippet mat\n\
|
||
|
|
matrix(${1:data}, nrow=${2:rows}, ncol=${3:cols})\n\
|
||
|
|
\n\
|
||
|
|
# apply functions\n\
|
||
|
|
snippet apply\n\
|
||
|
|
apply(${1:array}, ${2:margin}, ${3:function})\n\
|
||
|
|
snippet lapply\n\
|
||
|
|
lapply(${1:list}, ${2:function})\n\
|
||
|
|
snippet sapply\n\
|
||
|
|
sapply(${1:list}, ${2:function})\n\
|
||
|
|
snippet vapply\n\
|
||
|
|
vapply(${1:list}, ${2:function}, ${3:type})\n\
|
||
|
|
snippet mapply\n\
|
||
|
|
mapply(${1:function}, ${2:...})\n\
|
||
|
|
snippet tapply\n\
|
||
|
|
tapply(${1:vector}, ${2:index}, ${3:function})\n\
|
||
|
|
snippet rapply\n\
|
||
|
|
rapply(${1:list}, ${2:function})\n\
|
||
|
|
\n\
|
||
|
|
# plyr functions\n\
|
||
|
|
snippet dd\n\
|
||
|
|
ddply(${1:frame}, ${2:variables}, ${3:function})\n\
|
||
|
|
snippet dl\n\
|
||
|
|
dlply(${1:frame}, ${2:variables}, ${3:function})\n\
|
||
|
|
snippet da\n\
|
||
|
|
daply(${1:frame}, ${2:variables}, ${3:function})\n\
|
||
|
|
snippet d_\n\
|
||
|
|
d_ply(${1:frame}, ${2:variables}, ${3:function})\n\
|
||
|
|
\n\
|
||
|
|
snippet ad\n\
|
||
|
|
adply(${1:array}, ${2:margin}, ${3:function})\n\
|
||
|
|
snippet al\n\
|
||
|
|
alply(${1:array}, ${2:margin}, ${3:function})\n\
|
||
|
|
snippet aa\n\
|
||
|
|
aaply(${1:array}, ${2:margin}, ${3:function})\n\
|
||
|
|
snippet a_\n\
|
||
|
|
a_ply(${1:array}, ${2:margin}, ${3:function})\n\
|
||
|
|
\n\
|
||
|
|
snippet ld\n\
|
||
|
|
ldply(${1:list}, ${2:function})\n\
|
||
|
|
snippet ll\n\
|
||
|
|
llply(${1:list}, ${2:function})\n\
|
||
|
|
snippet la\n\
|
||
|
|
laply(${1:list}, ${2:function})\n\
|
||
|
|
snippet l_\n\
|
||
|
|
l_ply(${1:list}, ${2:function})\n\
|
||
|
|
\n\
|
||
|
|
snippet md\n\
|
||
|
|
mdply(${1:matrix}, ${2:function})\n\
|
||
|
|
snippet ml\n\
|
||
|
|
mlply(${1:matrix}, ${2:function})\n\
|
||
|
|
snippet ma\n\
|
||
|
|
maply(${1:matrix}, ${2:function})\n\
|
||
|
|
snippet m_\n\
|
||
|
|
m_ply(${1:matrix}, ${2:function})\n\
|
||
|
|
\n\
|
||
|
|
# plot functions\n\
|
||
|
|
snippet pl\n\
|
||
|
|
plot(${1:x}, ${2:y})\n\
|
||
|
|
snippet ggp\n\
|
||
|
|
ggplot(${1:data}, aes(${2:aesthetics}))\n\
|
||
|
|
snippet img\n\
|
||
|
|
${1:(jpeg,bmp,png,tiff)}(filename=\"${2:filename}\", width=${3}, height=${4}, unit=\"${5}\")\n\
|
||
|
|
${6:plot}\n\
|
||
|
|
dev.off()\n\
|
||
|
|
\n\
|
||
|
|
# statistical test functions\n\
|
||
|
|
snippet fis\n\
|
||
|
|
fisher.test(${1:x}, ${2:y})\n\
|
||
|
|
snippet chi\n\
|
||
|
|
chisq.test(${1:x}, ${2:y})\n\
|
||
|
|
snippet tt\n\
|
||
|
|
t.test(${1:x}, ${2:y})\n\
|
||
|
|
snippet wil\n\
|
||
|
|
wilcox.test(${1:x}, ${2:y})\n\
|
||
|
|
snippet cor\n\
|
||
|
|
cor.test(${1:x}, ${2:y})\n\
|
||
|
|
snippet fte\n\
|
||
|
|
var.test(${1:x}, ${2:y})\n\
|
||
|
|
snippet kvt \n\
|
||
|
|
kv.test(${1:x}, ${2:y})\n\
|
||
|
|
";
|
||
|
|
exports.scope = "r";
|
||
|
|
|
||
|
|
});
|