diff --git a/queries/r/indents.scm b/queries/r/indents.scm
index 66e1e989b..dea537366 100644
--- a/queries/r/indents.scm
+++ b/queries/r/indents.scm
@@ -12,6 +12,8 @@
   "for"
 ] @indent
 
+((binary operator: (special)) @indent)
+
 [
   "}"
   ")"
diff --git a/tests/indent/r/pipe.R b/tests/indent/r/pipe.R
index 2eef84218..6e19f8215 100644
--- a/tests/indent/r/pipe.R
+++ b/tests/indent/r/pipe.R
@@ -5,3 +5,6 @@ mtcars |>
   subset(
     cyl > 3
   )
+
+mtcars %>%
+  head()
diff --git a/tests/indent/r_spec.lua b/tests/indent/r_spec.lua
index ac1ed31e3..662ea5809 100644
--- a/tests/indent/r_spec.lua
+++ b/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)