make name of transformer more similar to existing ones

Author: lorenzwalthert

R/rules-line-breaks.R

@@ -449,7 +449,7 @@ remove_empty_lines_after_opening_and_before_closing_braces <- function(pd) {
 }
 
 
-reduce_extra_blank_lines_between_top_level_exprs <- function(pd, allowed_blank_lines = 2L) {
+set_line_breaks_between_top_level_exprs  <- function(pd, allowed_blank_lines = 2L) {
   pd$lag_newlines <- pmin(pd$lag_newlines, allowed_blank_lines + 1L)
   pd
 }

R/style-guides.R

@@ -139,8 +139,8 @@ tidyverse_style <- function(scope = "tokens",
         if (strict) remove_line_break_before_round_closing_after_curly,
       remove_line_breaks_in_fun_dec =
         if (strict) remove_line_breaks_in_fun_dec,
-      reduce_extra_blank_lines_between_top_level_exprs =
-        if (strict) reduce_extra_blank_lines_between_top_level_exprs,
+      set_line_breaks_between_top_level_exprs  =
+        if (strict) set_line_breaks_between_top_level_exprs ,
       style_line_break_around_curly = partial(
         style_line_break_around_curly,
         strict

tests/testthat/test-transformers-drop.R

@@ -72,7 +72,7 @@ test_that("tidyverse transformers are correctly dropped", {
 
   names_line_break <- c(
     "remove_empty_lines_after_opening_and_before_closing_braces",
-    "reduce_extra_blank_lines_between_top_level_exprs",
+    "set_line_breaks_between_top_level_exprs ",
     "set_line_break_around_comma_and_or",
     "set_line_break_after_assignment",
     "set_line_break_after_opening_if_call_is_multi_line",