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