Remove fixtures for R-lang function call chain (#3050)

Author: AndreasArvidsson

data/fixtures/scopes/r/functionCall.chain.scope

@@ -27,10 +27,8 @@ export const rScopeSupport: LanguageScopeSupportFacetMap = {
 
   functionCall: supported,
   "functionCall.method": supported,
-  "functionCall.chain": supported,
   functionCallee: supported,
   "functionCallee.method": supported,
-  "functionCallee.chain": supported,
 
   "comment.line": supported,
   ifStatement: supported,
@@ -81,6 +79,10 @@ export const rScopeSupport: LanguageScopeSupportFacetMap = {
 
   // Not applicable
 
+  // Chained function calls
+  "functionCall.chain": notApplicable,
+  "functionCallee.chain": notApplicable,
+
   "interior.cell": notApplicable,
   "interior.command": notApplicable,
   "interior.element": notApplicable,

data/fixtures/scopes/r/functionCallee.chain.scope

@@ -263,59 +263,6 @@ class GrowToNamedSiblings extends QueryPredicateOperator<GrowToNamedSiblings> {
     return true;
   }
 }
-/**
- * A predicate operator that modifies the range of the match to grow to leading siblings of the same type.
- *
- * The `leadingSeparator` argument specificies the separator each node except the first sibling will be separated by.
- *
- * ```
- * (#call-chain! @foo ".")
- * ```
- */
-class CallChain extends QueryPredicateOperator<CallChain> {
-  name = "call-chain!" as const;
-  schema = z.union([z.tuple([q.node]), z.tuple([q.node, q.string])]);
-
-  run(nodeInfo: MutableQueryCapture, leadingSeparator: string) {
-    const { node } = nodeInfo;
-
-    if (node.parent == null) {
-      throw Error("Node has no parent");
-    }
-
-    const { children } = node.parent;
-    const nodeIndex = children.findIndex((n) => n.id === node.id);
-
-    if (nodeIndex === -1) {
-      throw Error("Node not found in parent");
-    }
-
-    let start = children[nodeIndex];
-
-    for (let i = nodeIndex; i > -1; --i) {
-      const child = children[i];
-
-      if (child.type !== node.type) {
-        break;
-      }
-
-      start = child;
-
-      if (!child.text.startsWith(leadingSeparator)) {
-        break;
-      }
-    }
-
-    if (start.id !== node.id) {
-      nodeInfo.range = makeRangeFromPositions(
-        start.startPosition,
-        children[nodeIndex].endPosition,
-      );
-    }
-
-    return true;
-  }
-}
 
 /**
  * A predicate operator that modifies the range of the match by trimming trailing whitespace,
@@ -494,7 +441,6 @@ export const queryPredicateOperators = [
   new CharacterRange(),
   new ShrinkToMatch(),
   new GrowToNamedSiblings(),
-  new CallChain(),
   new AllowMultiple(),
   new InsertionDelimiter(),
   new SingleOrMultilineDelimiter(),

packages/common/src/scopeSupportFacets/r.ts

@@ -17,15 +17,6 @@
 ;;!  ^^^^^^^^^^^^^^
 (if_statement) @ifStatement
 
-;; ;;!! if (TRUE) { print("hello") } else { print("world") }
-;; ;;!      ^^^^   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
-;; (if_statement
-;;   "if" @branch.start
-;;   (_) @condition
-;;   consequence: (braced_expression) @branch.end
-;;   alternative: (braced_expression)? @branch.end
-;; ) @branch.iteration
-
 ;; named function
 ;;!! abc <- function(x){ }
 ;;!  ^^^^^^^^^^^^^^^^^^^^^
@@ -136,14 +127,10 @@
 ;;!  ^^^^^
 ;;!  ^^^
 ;;!  -----
-(
-  (call
-    (identifier) @functionCallee.end
-  ) @functionCall @functionCallee.start.startOf @functionCallee.domain
-  (#call-chain! @functionCall ".")
-  (#call-chain! @functionCallee.start.startOf ".")
-  (#call-chain! @functionCallee.domain ".")
-)
+
+(call
+  (identifier) @functionCallee
+) @functionCall @functionCallee.domain
 
 ;; Technically lists and arrays are just calls to the function `list` or `c`
 ;;!! list(1, 2, 3)