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