Remove empty line at start of fun dec

NEWS.md

@@ -35,7 +35,8 @@
   auto-save edits in general (Code -> Saving -> Auto-Save), e.g. on idle editor 
   or focus loss, so this feature becomes less relevant. (#631).
 - blank lines in function calls and headers are now removed, for the former only 
-  when there are no comments before or after the blank line (#629, #630, #635).
+  when there are no comments before or after the blank line (#629, #630, #635, 
+  #723).
 - speed improvements: ~10% when cache is activated because transformers are not 
   captured as character anymore (#679), ~3% in low-level optimization (#691). 
   7% by requiring magrittr 2.0 (#681), ~8% by dropping unused transformers 

R/rules-line-breaks.R

@@ -173,7 +173,7 @@ remove_line_break_before_round_closing_after_curly <- function(pd) {
 
 remove_line_breaks_in_fun_dec <- function(pd) {
   if (is_function_dec(pd)) {
-    round_after <- pd$token == "')'" & pd$token_before != "COMMENT"
+    round_after <- (pd$token == "')'" | pd$token_before == "'('") & pd$token_before != "COMMENT"
     pd$lag_newlines[pd$lag_newlines > 1L] <- 1L
     pd$lag_newlines[round_after] <- 0L
   }

tests/testthat/fun_dec/line_break_fun_dec-in.R

@@ -33,3 +33,16 @@ a <- function(x,
               y) {
   x - 1
 }
+
+
+a <- function(
+              x,
+              y) {
+  x - 1
+}
+
+a <- function( #
+  x,
+  y) {
+  x - 1
+}

tests/testthat/fun_dec/line_break_fun_dec-out.R

@@ -32,3 +32,15 @@ a <- function(x,
               y) {
   x - 1
 }
+
+
+a <- function(x,
+              y) {
+  x - 1
+}
+
+a <- function( #
+              x,
+              y) {
+  x - 1
+}