Initial commit for v2.4.3

static/filemanager/js/ace/snippets/r.js

@@ -0,0 +1,128 @@
+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";
+
+});