Fix line break around comma

R/rules-line-break.R

@@ -12,7 +12,7 @@ set_line_break_around_comma <- function(pd) {
     (pd$token_before != "COMMENT") &
     (lag(pd$token) != "'['")
   pd$lag_newlines[comma_with_line_break_that_can_be_removed_before] <- 0L
-  pd$lag_newlines[lead(comma_with_line_break_that_can_be_removed_before)] <- 1L
+  pd$lag_newlines[lag(comma_with_line_break_that_can_be_removed_before)] <- 1L
   pd
 }
 

tests/testthat/line_breaks_and_other/comma-in.R

@@ -12,3 +12,9 @@ call(a,
 
 call(a
      ,)
+
+mpg %>%
+    summarise(avg_cty = mean(cty)
+, avg_hwy = mean(hwy)
+, n = n()
+, n_class = n_distinct(class))

tests/testthat/line_breaks_and_other/comma-out.R

@@ -1,17 +1,23 @@
 call(
   a,
-  b, c
+  b,
+  c
 )
 
 call(
-  a,
-  b,
+  a, b,
   c
 )
 
 call(a, )
 call(a, )
 
-call(
-  a,
-)
+call(a, )
+
+mpg %>%
+  summarise(
+    avg_cty = mean(cty),
+    avg_hwy = mean(hwy),
+    n = n(),
+    n_class = n_distinct(class)
+  )

tests/testthat/strict/non_strict-out.R

@@ -130,7 +130,8 @@ line breaks are unfortunately split"
 
   nested(
     function_call (with),
-    many,     first_level_args)
+    many,
+    first_level_args)
 
   nested(
     function_call (with),  # a comment and

tests/testthat/strict/strict-out.R

@@ -120,7 +120,8 @@ test <- function() {
 
   nested(
     function_call(with),
-    many, first_level_args
+    many,
+    first_level_args
   )
 
   nested(