minor speed improvements by simplification

(1-2%)

Author: lorenzwalthert

R/indent.R

@@ -306,7 +306,7 @@ pd_is_multi_line <- function(pd) {
 #' @seealso choose_indention
 #' @keywords internal
 update_newlines <- function(pd) {
-  npd <- nrow(pd) - 1
-  pd$newlines[seq_len(npd)] <- pd$lag_newlines[seq_len(npd) + 1]
+  seq_pd <- seq_len(nrow(pd) - 1)
+  pd$newlines[seq_pd] <- pd$lag_newlines[seq_pd + 1]
   pd
 }

R/initialize.R

@@ -52,8 +52,7 @@ initialize_spaces <- function(pd_flat) {
     rep(0L, nrow(pd_flat)), pd_flat$col2
   )
   pd_flat$spaces <- pd_flat$col3 - pd_flat$col2_nl - 1L
-  pd_flat$col3 <- NULL
-  pd_flat$col2_nl <- NULL
+  pd_flat$col3 <- pd_flat$col2_nl <- NULL
   pd_flat
 }
 

R/transform-files.R

@@ -259,7 +259,10 @@ parse_transform_serialize_r <- function(text,
 apply_transformers <- function(pd_nested, transformers) {
   transformed_updated_multi_line <- post_visit(
     pd_nested,
-    c(transformers$initialize, transformers$line_break, set_multi_line, update_newlines)
+    c(
+      transformers$initialize, transformers$line_break, set_multi_line,
+      if (!is.null(transformers$line_break)) update_newlines
+    )
   )
 
   transformed_all <- pre_visit(