whenver ther is an empty brace expression, remove line breaks

Author: lorenzwalthert

R/rules-line-breaks.R

@@ -149,15 +149,21 @@ set_line_break_around_comma_and_or <- function(pd, strict) {
 }
 
 style_line_break_around_curly <- function(strict, pd) {
-  if (is_curly_expr(pd) && nrow(pd) > 2L) {
-    closing_before <- pd$token == "'}'"
-    opening_before <- (pd$token == "'{'")
-    to_break <- lag(opening_before, default = FALSE) | closing_before
-    pd$lag_newlines[to_break] <- ifelse(
-      pd$token[to_break] == "COMMENT",
-      pmin(1L, pd$lag_newlines[to_break]),
-      if (strict) 1L else pmax(1L, pd$lag_newlines[to_break])
-    )
+  if (is_curly_expr(pd)) {
+    n_row <- nrow(pd)
+    if (n_row > 2L) {
+      closing_before <- pd$token == "'}'"
+      opening_before <- (pd$token == "'{'")
+      to_break <- lag(opening_before, default = FALSE) | closing_before
+      pd$lag_newlines[to_break] <- ifelse(
+        pd$token[to_break] == "COMMENT",
+        pmin(1L, pd$lag_newlines[to_break]),
+        if (strict) 1L else pmax(1L, pd$lag_newlines[to_break])
+      )
+    } else if (n_row == 2L) {
+      # pd represents {}
+      pd$lag_newlines[2L] <- 0L
+    }
   } else {
     is_else <- pd$token == "ELSE"
     if (any(pd$token_before[is_else] == "'}'")) {

tests/testthat/indention_multiple/edge_strict_mixed-out.R

@@ -23,5 +23,4 @@
 )))
 
 
-function(x, y, z) {
-}
+function(x, y, z) {}

tests/testthat/indention_operators/eq_formals_complex_tokens-out.R

@@ -30,6 +30,4 @@ function(a =
          f =
            d, c =
            3, d =
-           4) {
-
-}
+           4) {}

tests/testthat/line_breaks_and_other/braces-fun-calls2-out.R

@@ -1,8 +1,6 @@
 test(
   "x",
-  {
-
-  },
+  {},
   a + b,
   {
     s(x = sd)
@@ -11,9 +9,7 @@ test(
 
 test(
   "x",
-  {
-
-  },
+  {},
   a + b,
   {
     s(x = sd)
@@ -22,9 +18,7 @@ test(
 
 test(
   "x",
-  {
-
-  },
+  {},
   a + b,
   {
     s(x = sd)
@@ -34,9 +28,7 @@ test(
 
 test(
   "x",
-  {
-
-  },
+  {},
   a + b,
   {
     s(x = sd)
@@ -45,9 +37,7 @@ test(
 
 test(
   "x",
-  {
-
-  }, # h
+  {}, # h
   a + b,
   {
     s(x = sd)
@@ -56,9 +46,7 @@ test(
 
 test(
   "x",
-  {
-
-  }, # h
+  {}, # h
   a + b,
   # k
   {
@@ -68,9 +56,7 @@ test(
 
 test(
   "x",
-  {
-
-  },
+  {},
   a + b, # k
   {
     s(x = sd)

tests/testthat/line_breaks_and_other/curly-in.R

@@ -47,3 +47,15 @@ while (TRUE) { }
 
 while (TRUE)
   { }
+
+while (TRUE){
+
+ }
+
+while (TRUE){
+#
+ }
+
+
+while (TRUE){#
+ }

tests/testthat/line_breaks_and_other/curly-out.R

@@ -43,3 +43,13 @@ test_that(
 while (TRUE) {}
 
 while (TRUE) {}
+
+while (TRUE) {}
+
+while (TRUE) {
+  #
+}
+
+
+while (TRUE) { #
+}

tests/testthat/line_breaks_fun_call/token_dependent_complex_non_strict-out.R

@@ -5,8 +5,7 @@ call(call(
 call(call(1,
   2))
 # multi-line: no indention based on first vall
-call(a(b(c({
-}))))
+call(a(b(c({}))))
 
 call(call(
   2),

tests/testthat/line_breaks_fun_call/token_dependent_complex_strict-out.R

@@ -7,8 +7,7 @@ call(call(
   2
 ))
 # multi-line: no indention based on first vall
-call(a(b(c({
-}))))
+call(a(b(c({}))))
 
 call(
   call(

tests/testthat/parse_comments/spinning_code_chunk_headers-out.R

@@ -1,7 +1,5 @@
 # A comment
-a <- function() {
-
-}
+a <- function() {}
 
 #+ chunk-label, opt1=value1
 "chunk-content"

tests/testthat/public-api/xyz-r-and-rmd-dir/subdir/random-script-in-sub-dir.R

@@ -1,4 +1,3 @@
 # random
 this(is_a_call(x))
-if (x) {
-}
+if (x) {}