Fix function names scope and tests

Author: BlueDrink9

data/fixtures/scopes/r/functionName.scope

@@ -3,21 +3,23 @@ abc <- function(arg){
 }
 ---
 
-[Content] =
-[Domain] = 0:0-0:3
+[Content] = 0:0-0:3
   >---<
 0| abc <- function(arg){
 
 [Removal] = 0:0-0:7
   >-------<
 0| abc <- function(arg){
-1|     TRUE
-2| }
 
 [Trailing delimiter] = 0:3-0:7
      >----<
 0| abc <- function(arg){
+
+[Domain] = 0:0-2:1
+  >---------------------
+0| abc <- function(arg){
 1|     TRUE
 2| }
+   -<
 
-[Insertion delimiter] = " <- "
+[Insertion delimiter] = " "

queries/r.scm

@@ -68,12 +68,12 @@
 (binary_operator
   ;;!! abc <- function(x){ }
   ;;!  ^^^
-  lhs: (identifier) @functionName @functionName.leading.endOf
+  lhs: (identifier) @functionName
   rhs: (function_definition
     name: "function"
     parameters: (parameters)
     body: (braced_expression) @interior
-  )
+  ) @functionName.trailing.startOf
 ) @namedFunction @_.domain
 
 ;;!! foo()