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