no line breaks after pipe if comment is next token

R/rules-line_break.R

@@ -44,7 +44,7 @@ remove_line_break_before_round_closing <- function(pd) {
 
 #' @importFrom rlang seq2
 add_line_break_after_pipe <- function(pd) {
-  is_special <- pd$token %in% c("SPECIAL-PIPE")
+  is_special <- pd$token == c("SPECIAL-PIPE") & pd$token_after != "COMMENT"
   pd$lag_newlines[lag(is_special)] <- 1L
   pd
 }

tests/testthat/line_breaks_and_other/pipe_and_comment-in.R

@@ -0,0 +1,2 @@
+1:10 %>% # sum
+  sum()

tests/testthat/line_breaks_and_other/pipe_and_comment-out.R

@@ -0,0 +1,2 @@
+1:10 %>% # sum
+  sum()

tests/testthat/test-line_breaks_and_other.R

@@ -26,3 +26,8 @@ test_that("adding and removing line breaks", {
                   transformer = style_text), NA)
 })
 
+test_that("no line break after %>% if next token is comment", {
+  expect_warning(test_collection("line_breaks_and_other", "pipe_and",
+                                 transformer = style_text), NA)
+})
+