32 lines
3.0 KiB
JavaScript
32 lines
3.0 KiB
JavaScript
|
hljs.registerLanguage("r",(()=>{"use strict";function e(...e){return e.map((e=>{
|
||
|
|
return(a=e)?"string"==typeof a?a:a.source:null;var a})).join("")}return a=>{
|
||
|
|
const n=/(?:(?:[a-zA-Z]|\.[._a-zA-Z])[._a-zA-Z0-9]*)|\.(?!\d)/;return{name:"R",
|
||
|
|
illegal:/->/,keywords:{$pattern:n,
|
||
|
|
keyword:"function if in break next repeat else for while",
|
||
|
|
literal:"NULL NA TRUE FALSE Inf NaN NA_integer_|10 NA_real_|10 NA_character_|10 NA_complex_|10",
|
||
|
|
built_in:"LETTERS letters month.abb month.name pi T F abs acos acosh all any anyNA Arg as.call as.character as.complex as.double as.environment as.integer as.logical as.null.default as.numeric as.raw asin asinh atan atanh attr attributes baseenv browser c call ceiling class Conj cos cosh cospi cummax cummin cumprod cumsum digamma dim dimnames emptyenv exp expression floor forceAndCall gamma gc.time globalenv Im interactive invisible is.array is.atomic is.call is.character is.complex is.double is.environment is.expression is.finite is.function is.infinite is.integer is.language is.list is.logical is.matrix is.na is.name is.nan is.null is.numeric is.object is.pairlist is.raw is.recursive is.single is.symbol lazyLoadDBfetch length lgamma list log max min missing Mod names nargs nzchar oldClass on.exit pos.to.env proc.time prod quote range Re rep retracemem return round seq_along seq_len seq.int sign signif sin sinh sinpi sqrt standardGeneric substitute sum switch tan tanh tanpi tracemem trigamma trunc unclass untracemem UseMethod xtfrm"
|
||
|
|
},compilerExtensions:[(a,n)=>{if(!a.beforeMatch)return
|
||
|
|
;if(a.starts)throw Error("beforeMatch cannot be used with starts")
|
||
|
|
;const i=Object.assign({},a);Object.keys(a).forEach((e=>{delete a[e]
|
||
|
|
})),a.begin=e(i.beforeMatch,e("(?=",i.begin,")")),a.starts={relevance:0,
|
||
|
|
contains:[Object.assign(i,{endsParent:!0})]},a.relevance=0,delete i.beforeMatch
|
||
|
|
}],contains:[a.COMMENT(/#'/,/$/,{contains:[{className:"doctag",
|
||
|
|
begin:"@examples",starts:{contains:[{begin:/\n/},{begin:/#'\s*(?=@[a-zA-Z]+)/,
|
||
|
|
endsParent:!0},{begin:/#'/,end:/$/,excludeBegin:!0}]}},{className:"doctag",
|
||
|
|
begin:"@param",end:/$/,contains:[{className:"variable",variants:[{begin:n},{
|
||
|
|
begin:/`(?:\\.|[^`\\])+`/}],endsParent:!0}]},{className:"doctag",
|
||
|
|
begin:/@[a-zA-Z]+/},{className:"meta-keyword",begin:/\\[a-zA-Z]+/}]
|
||
|
|
}),a.HASH_COMMENT_MODE,{className:"string",contains:[a.BACKSLASH_ESCAPE],
|
||
|
|
variants:[a.END_SAME_AS_BEGIN({begin:/[rR]"(-*)\(/,end:/\)(-*)"/
|
||
|
|
}),a.END_SAME_AS_BEGIN({begin:/[rR]"(-*)\{/,end:/\}(-*)"/
|
||
|
|
}),a.END_SAME_AS_BEGIN({begin:/[rR]"(-*)\[/,end:/\](-*)"/
|
||
|
|
}),a.END_SAME_AS_BEGIN({begin:/[rR]'(-*)\(/,end:/\)(-*)'/
|
||
|
|
}),a.END_SAME_AS_BEGIN({begin:/[rR]'(-*)\{/,end:/\}(-*)'/
|
||
|
|
}),a.END_SAME_AS_BEGIN({begin:/[rR]'(-*)\[/,end:/\](-*)'/}),{begin:'"',end:'"',
|
||
|
|
relevance:0},{begin:"'",end:"'",relevance:0}]},{className:"number",relevance:0,
|
||
|
|
beforeMatch:/([^a-zA-Z0-9._])/,variants:[{
|
||
|
|
match:/0[xX][0-9a-fA-F]+\.[0-9a-fA-F]*[pP][+-]?\d+i?/},{
|
||
|
|
match:/0[xX][0-9a-fA-F]+([pP][+-]?\d+)?[Li]?/},{
|
||
|
|
match:/(\d+(\.\d*)?|\.\d+)([eE][+-]?\d+)?[Li]?/}]},{begin:"%",end:"%"},{
|
||
|
|
begin:e(/[a-zA-Z][a-zA-Z_0-9]*/,"\\s+<-\\s+")},{begin:"`",end:"`",contains:[{
|
||
|
|
begin:/\\./}]}]}}})());
|