Remove excessive line breaks between top-level expressions

.pre-commit-config.yaml

@@ -1,12 +1,12 @@
 # All available hooks: https://pre-commit.com/hooks.html
 # R specific hooks: https://github.com/lorenzwalthert/precommit
-default_stages: [commit]
+default_stages: [pre-commit]
 default_language_version:
   python: python3
 
 repos:
   - repo: https://github.com/lorenzwalthert/precommit
-    rev: v0.4.2
+    rev: v0.4.3.9003
     hooks:
       - id: style-files
         args:

R/rules-line-breaks.R

@@ -447,3 +447,9 @@ remove_empty_lines_after_opening_and_before_closing_braces <- function(pd) {
 
   pd
 }
+
+
+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,6 +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,
+      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/alignment/named-out.R

@@ -102,7 +102,6 @@ call(
 )
 
 
-
 # if all col1 arguments are named, col1 must also be aligned
 # not aligned
 fell(

tests/testthat/indention_curly_brackets/custom-out.R

@@ -4,7 +4,6 @@ if (value > 0) {
 }
 
 
-
 if (value > 0) {
     print(value)
 }

tests/testthat/line_breaks_and_other/assignment-out.R

@@ -22,7 +22,6 @@ x <-
   3
 
 
-
 ImportantDataFrame$ImportantColumn1 <-
   ImportantDataFrame$ImportantColumn2 <-
   ComplicatedFunction(ImportantDataFrame$InputColumn)
@@ -32,6 +31,5 @@ ImportantDataFrame$ImportantColumn1 <-
   ImportantDataFrame$ImportantColumn2 <- ComplicatedFunction(ImportantDataFrame$InputColumn)
 
 
-
 ImportantDataFrame$ImportantColumn1 <-
   ImportantDataFrame$ImportantColumn2 <- ComplicatedFunction(ImportantDataFrame$InputColumn)

tests/testthat/line_breaks_and_other/ggplot2-in.R

@@ -26,6 +26,7 @@ ggplot(data = mtcars, mapping = aes(x = mpg, y = vs)) +
 ggplot(data = mtcars, mapping = aes(x = mpg, y = vs)) + ggplot2::geom_point() + g() # comment
 
 
+
 # add when comment
 ggplot(data = mtcars, mapping = aes(x = mpg, y = vs)) +
   ggplot2::geom_point() + g()  + geom_oint() # comment

tests/testthat/line_breaks_fun_call/blank-strict-out.R

@@ -19,7 +19,6 @@ call(
   2,
 
 
-
   # comment
 
   1,

tests/testthat/line_breaks_fun_call/switch_ifelse_etc_no_line_break-out.R

@@ -16,7 +16,6 @@ switch( #
 )
 
 
-
 switch(x,
   a = 2, #
   y = 3

tests/testthat/line_breaks_fun_call/token_dependent_mixed-out.R

@@ -16,7 +16,6 @@ call(call(
 ))
 
 
-
 # no more barcket on same line ->
 call(call(
   3, 4

tests/testthat/line_breaks_top_level_exprs/braces-in.R

@@ -0,0 +1,16 @@
+{
+  1 + 1
+}
+
+
+
+
+
+### some comment
+
+
+
+
+{
+  NULL
+}

tests/testthat/line_breaks_top_level_exprs/braces-out.R

@@ -0,0 +1,11 @@
+{
+  1 + 1
+}
+
+
+### some comment
+
+
+{
+  NULL
+}

tests/testthat/line_breaks_top_level_exprs/conditionals-in.R

@@ -0,0 +1,20 @@
+for (i in 1:10) {}
+
+
+
+
+
+
+# some comment
+
+
+
+
+
+while (TRUE) {}
+
+
+
+
+# some comment
+if (TRUE) NULL

tests/testthat/line_breaks_top_level_exprs/conditionals-out.R

@@ -0,0 +1,11 @@
+for (i in 1:10) {}
+
+
+# some comment
+
+
+while (TRUE) {}
+
+
+# some comment
+if (TRUE) NULL

tests/testthat/line_breaks_top_level_exprs/function_defs_and_calls-in.R

@@ -0,0 +1,23 @@
+f <- function() NULL
+
+
+
+
+
+
+
+
+g <- function() NULL
+
+
+
+
+f()
+
+# comment
+
+
+
+
+
+g()

tests/testthat/line_breaks_top_level_exprs/function_defs_and_calls-out.R

@@ -0,0 +1,12 @@
+f <- function() NULL
+
+
+g <- function() NULL
+
+
+f()
+
+# comment
+
+
+g()

tests/testthat/line_breaks_top_level_exprs/non_strict-in.R

@@ -0,0 +1,23 @@
+f <- function() NULL
+
+
+
+
+
+
+
+
+g <- function() NULL
+
+
+
+
+f()
+
+# comment
+
+
+
+
+
+g()

tests/testthat/line_breaks_top_level_exprs/non_strict-out.R

@@ -0,0 +1,23 @@
+f <- function() NULL
+
+
+
+
+
+
+
+
+g <- function() NULL
+
+
+
+
+f()
+
+# comment
+
+
+
+
+
+g()

tests/testthat/line_breaks_top_level_exprs/piped_chains-in.R

@@ -0,0 +1,21 @@
+
+
+f %>% g()
+
+
+
+
+
+
+h %>% i()
+
+
+
+
+
+# some comment
+
+
+
+
+j %>% k()

tests/testthat/line_breaks_top_level_exprs/piped_chains-out.R

@@ -0,0 +1,10 @@
+f %>% g()
+
+
+h %>% i()
+
+
+# some comment
+
+
+j %>% k()

tests/testthat/parse_comments/with_indention-out.R

@@ -18,8 +18,6 @@ call(
 # new comment
 
 
-
-
 a()
 # I think it gets boring
 # new_line here

tests/testthat/roxygen-examples-complete/13-empty-lines-out.R

@@ -9,8 +9,6 @@
 #' # two
 #'
 #'
-#'
-#'
 #' (
 #'   # more
 #'   a <- 3

tests/testthat/roxygen-examples-complete/26-empty-trailing-lines-out.R

@@ -24,7 +24,6 @@ NULL
 NULL
 
 
-
 #' this
 #'
 #' empty line after example

tests/testthat/roxygen-examples-complete/30-multiple-empty-lines-between-in.R

@@ -0,0 +1,16 @@
+#' Empty line in examples
+#'
+#' @examples
+1
+
+
+
+
+
+
+#' Empty line in examples
+#'
+#' @examples
+#' \dontrun{
+#' }
+2

tests/testthat/roxygen-examples-complete/30-multiple-empty-lines-between-out.R

@@ -0,0 +1,13 @@
+#' Empty line in examples
+#'
+#' @examples
+1
+
+
+#' Empty line in examples
+#'
+#' @examples
+#' \dontrun{
+#'
+#' }
+2

tests/testthat/test-line_breaks_top_level_exprs.R

@@ -0,0 +1,29 @@
+test_that("extra line breaks between conditional statements are removed", {
+  expect_no_warning(
+    test_collection("line_breaks_top_level_exprs", "conditionals", transformer = style_text)
+  )
+})
+
+test_that("extra line breaks between function and definitions and calls are removed", {
+  expect_no_warning(
+    test_collection("line_breaks_top_level_exprs", "function_defs_and_calls", transformer = style_text)
+  )
+})
+
+test_that("extra line breaks between piped chains are removed", {
+  expect_no_warning(
+    test_collection("line_breaks_top_level_exprs", "piped_chains", transformer = style_text)
+  )
+})
+
+test_that("extra line breaks between braced expressions are removed", {
+  expect_no_warning(
+    test_collection("line_breaks_top_level_exprs", "braces", transformer = style_text)
+  )
+})
+
+test_that("extra line breaks are not removed in non-strict mode", {
+  expect_no_warning(
+    test_collection("line_breaks_top_level_exprs", "non_strict", transformer = style_text, strict = FALSE)
+  )
+})

tests/testthat/test-roxygen-examples-complete-30.R

@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by ./tests/dev/generate_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 30", {
+  expect_warning(test_collection("roxygen-examples-complete", "^30-", transformer = style_text), NA)
+})

tests/testthat/test-transformers-drop.R

@@ -72,6 +72,7 @@ test_that("tidyverse transformers are correctly dropped", {
 
   names_line_break <- c(
     "remove_empty_lines_after_opening_and_before_closing_braces",
+    "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",

tests/testthat/token_adding_removing/mixed_token-out.R

@@ -14,7 +14,6 @@ d
 'text with "quotes"'
 
 
-
 # adding brackets in pipes
 a %>%
   b() %>%