1(function(a){if(typeof exports=="object"&&typeof module=="object")a(require("../../lib/codemirror"));else if(typeof define=="function"&&define.amd)define(["../../lib/codemirror"],a);else a(CodeMirror)})(function(a){"use strict";a.registerHelper("wordChars","r",/[\w.]/);a.defineMode("r",function(b){function c(a){var b={};for(var c=0;c<a.length;++c)b[a[c]]=true;return b}var d=["NULL","NA","Inf","NaN","NA_integer_","NA_real_","NA_complex_","NA_character_","TRUE","FALSE"];var e=["list","quote","bquote","eval","return","call","parse","deparse"];var f=["if","else","repeat","while","function","for","in","next","break"];var g=["if","else","repeat","while","function","for"];a.registerHelper("hintWords","r",d.concat(e,f));var h=c(d);var i=c(e);var j=c(f);var k=c(g);var l=/[+\-*\/^<>=!&|~$:]/;var m;function n(a,b){m=null;var c=a.next();if(c=="#"){a.skipToEnd();return"comment"}else if(c=="0"&&a.eat("x")){a.eatWhile(/[\da-f]/i);return"number"}else if(c=="."&&a.eat(/\d/)){a.match(/\d*(?:e[+\-]?\d+)?/);return"number"}else if(/\d/.test(c)){a.match(/\d*(?:\.\d+)?(?:e[+\-]\d+)?L?/);return"number"}else if(c=="'"||c=='"'){b.tokenize=o(c);return"string"}else if(c=="`"){a.match(/[^`]+`/);return"variable-3"}else if(c=="."&&a.match(/.[.\d]+/)){return"keyword"}else if(/[\w\.]/.test(c)&&c!="_"){a.eatWhile(/[\w\.]/);var d=a.current();if(h.propertyIsEnumerable(d))return"atom";if(j.propertyIsEnumerable(d)){if(k.propertyIsEnumerable(d)&&!a.match(/\s*if(\s+|$)/,false))m="block";return"keyword"}if(i.propertyIsEnumerable(d))return"builtin";return"variable"}else if(c=="%"){if(a.skipTo("%"))a.next();return"operator variable-2"}else if(c=="<"&&a.eat("-")||c=="<"&&a.match("<-")||c=="-"&&a.match(/>>?/)){return"operator arrow"}else if(c=="="&&b.ctx.argList){return"arg-is"}else if(l.test(c)){if(c=="$")return"operator dollar";a.eatWhile(l);return"operator"}else if(/[\(\){}\[\];]/.test(c)){m=c;if(c==";")return"semi";return null}else{return null}}function o(a){return function(b,c){if(b.eat("\\")){var d=b.next();if(d=="x")b.match(/^[a-f0-9]{2}/i);else if((d=="u"||d=="U")&&b.eat("{")&&b.skipTo("}"))b.next();else if(d=="u")b.match(/^[a-f0-9]{4}/i);else if(d=="U")b.match(/^[a-f0-9]{8}/i);else if(/[0-7]/.test(d))b.match(/^[0-7]{1,2}/);return"string-2"}else{var e;while((e=b.next())!=null){if(e==a){c.tokenize=n;break}if(e=="\\"){b.backUp(1);break}}return"string"}}}var p=1,q=2,r=4;function s(a,b,c){a.ctx={type:b,indent:a.indent,flags:0,column:c.column(),prev:a.ctx}}function t(a,b){var c=a.ctx;a.ctx={type:c.type,indent:c.indent,flags:c.flags|b,column:c.column,prev:c.prev}}function u(a){a.indent=a.ctx.indent;a.ctx=a.ctx.prev}return{startState:function(){return{tokenize:n,ctx:{type:"top",indent:-b.indentUnit,flags:q},indent:0,afterIdent:false}},token:function(a,b){if(a.sol()){if((b.ctx.flags&3)==0)b.ctx.flags|=q;if(b.ctx.flags&r)u(b);b.indent=a.indentation()}if(a.eatSpace())return null;var c=b.tokenize(a,b);if(c!="comment"&&(b.ctx.flags&q)==0)t(b,p);if((m==";"||m=="{"||m=="}")&&b.ctx.type=="block")u(b);if(m=="{")s(b,"}",a);else if(m=="("){s(b,")",a);if(b.afterIdent)b.ctx.argList=true}else if(m=="[")s(b,"]",a);else if(m=="block")s(b,"block",a);else if(m==b.ctx.type)u(b);else if(b.ctx.type=="block"&&c!="comment")t(b,r);b.afterIdent=c=="variable"||c=="keyword";return c},indent:function(a,c){if(a.tokenize!=n)return 0;var d=c&&c.charAt(0),e=a.ctx,f=d==e.type;if(e.flags&r)e=e.prev;if(e.type=="block")return e.indent+(d=="{"?0:b.indentUnit);else if(e.flags&p)return e.column+(f?0:1);else return e.indent+(f?0:b.indentUnit)},lineComment:"#"}});a.defineMIME("text/x-rsrc","r")}); 2//# sourceMappingURL=r.min.js.map