indents(r): support special operator

Close #3879

queries/r/indents.scm

@@ -12,6 +12,8 @@
   "for"
 ] @indent
 
+((binary operator: (special)) @indent)
+
 [
   "}"
   ")"

tests/indent/r/pipe.R

@@ -5,3 +5,6 @@ mtcars |>
   subset(
     cyl > 3
   )
+
+mtcars %>%
+  head()

tests/indent/r_spec.lua

@@ -35,6 +35,7 @@ describe("indent R:", function()
     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 })
+    run:new_line("pipe.R", { on_line = 9, text = "head()", indent = 2 })
 
     run:new_line("aligned_indent.R", { on_line = 1, text = "z,", indent = 17 })
   end)