pre-commit

Author: github-actions[bot]

R/rules-line-breaks.R

@@ -455,7 +455,7 @@ remove_empty_lines_after_opening_and_before_closing_braces <- function(pd) {
 #' @keywords internal
 reduce_extra_blank_lines_between_scopes <- function(pd_flat, allowed_blank_lines = 2L) {
   # Calculate the maximum allowed lag_newlines
-  max_lag_newlines <- allowed_blank_lines + 1L  # +1 accounts for the line with the previous token
+  max_lag_newlines <- allowed_blank_lines + 1L # +1 accounts for the line with the previous token
 
   # Identify positions where lag_newlines exceed the maximum allowed
   idx <- which(pd_flat$lag_newlines > max_lag_newlines)