indents(r): fix all R tests

queries/r/indents.scm

@@ -1,8 +1,8 @@
 [
-  (call)
   (brace_list)
   (paren_list)
   (special)
+  (pipe)
   "|>"
   "if"
   "else"
@@ -17,12 +17,7 @@
 ] @branch
 
 
-(pipe
-  (call) @aligned_indent
-  (#set! "delimiter" "()"))
-
-((special)
-  (call) @aligned_indent
+((call) @aligned_indent
   (#set! "delimiter" "()"))
 
 ((formal_parameters (identifier)) @aligned_indent

tests/indent/r_spec.lua

@@ -1,5 +1,5 @@
 local Runner = require("tests.indent.common").Runner
-local XFAIL = require("tests.indent.common").XFAIL
+--local XFAIL = require("tests.indent.common").XFAIL
 
 local run = Runner:new(it, "tests/indent/r", {
   tabstop = 2,
@@ -12,7 +12,6 @@ describe("indent R:", function()
   describe("whole file:", function()
     run:whole_file(".", {
       expected_failures = {
-        "r/pipe.R",
       },
     })
   end)
@@ -35,7 +34,7 @@ describe("indent R:", function()
     run:new_line("loop.R", { on_line = 8, text = "x <- x + 1", indent = 2 })
     run:new_line("loop.R", { on_line = 14, text = "print('lol')", indent = 4 })
 
-    run:new_line("pipe.R", { on_line = 1, text = "head(n = 10L) |>", indent = 2 }, "expected failure", XFAIL)
+    run:new_line("pipe.R", { on_line = 1, text = "head(n = 10L) |>", indent = 2 })
 
     run:new_line("aligned_indent.R", { on_line = 1, text = "z,", indent = 17 })
   end)