only remove excessive line breaks

Author: lorenzwalthert

R/rules-line-breaks.R

@@ -201,7 +201,7 @@ add_line_break_after_pipe <- function(pd) {
 set_line_break_after_assignment <- function(pd) {
   is_assignment <- lag(pd$token, default = FALSE) %in% c("LEFT_ASSIGN", "EQ_ASSIGN")
   if (any(is_assignment)) {
-    pd$lag_newlines[is_assignment] <- min(1L, pd$lag_newlines[is_assignment])
+    pd$lag_newlines[is_assignment] <- pmin(1L, pd$lag_newlines[is_assignment])
   }
   pd
 }

tests/testthat/line_breaks_and_other/assignment-in.R

@@ -22,3 +22,19 @@ x =
 
   # comment
   3
+
+
+
+ImportantDataFrame$ImportantColumn1 <-
+  ImportantDataFrame$ImportantColumn2 <-
+  ComplicatedFunction(ImportantDataFrame$InputColumn)
+
+
+ImportantDataFrame$ImportantColumn1 <-
+  ImportantDataFrame$ImportantColumn2 <- ComplicatedFunction(ImportantDataFrame$InputColumn)
+
+
+
+ImportantDataFrame$ImportantColumn1 <-
+
+  ImportantDataFrame$ImportantColumn2 <- ComplicatedFunction(ImportantDataFrame$InputColumn)

tests/testthat/line_breaks_and_other/assignment-in_tree

@@ -21,3 +21,18 @@ x <- 3
 x <-
   # comment
   3
+
+
+
+ImportantDataFrame$ImportantColumn1 <-
+  ImportantDataFrame$ImportantColumn2 <-
+  ComplicatedFunction(ImportantDataFrame$InputColumn)
+
+
+ImportantDataFrame$ImportantColumn1 <-
+  ImportantDataFrame$ImportantColumn2 <- ComplicatedFunction(ImportantDataFrame$InputColumn)
+
+
+
+ImportantDataFrame$ImportantColumn1 <-
+  ImportantDataFrame$ImportantColumn2 <- ComplicatedFunction(ImportantDataFrame$InputColumn)