Make <- less of a signal boost for R

highlightjs · May 19, 2021 · bf1dc80 · bf1dc80
1 parent c4d7b81
commit bf1dc80
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/languages/r.js b/src/languages/r.js
@@ -202,9 +202,21 @@ export default function(hljs) {
 
       // Operators/punctuation when they're not directly followed by numbers
       {
+        // Avoid false detections of other languages.
         scope: 'operator',
+        relevance: 0,
         match: /<-/
       },
+      {
+        // Relevance boost for the most common assignment form.
+        scope: { 3: 'operator' },
+        match: [
+          IDENT_RE,
+          /\s+/,
+          /<-/,
+          /\s+/
+        ]
+      },
       {
         scope: 'operator',
         variants: [