WIP: two spaces global indention

lorenzwalthert · lorenzwalthert · commit 21d95ef97d15 · 2020-07-12T20:37:48.000+02:00
diff --git a/R/transform-block.R b/R/transform-block.R
@@ -19,6 +19,9 @@ parse_transform_serialize_r_block <- function(pd_nested,
         target_indention = transformers$reindention$indention,
         comments_only = transformers$reindention$comments_only
       )
+    is_on_newline <- flattened_pd$lag_newlines > 0
+    is_on_newline[1] <- 1
+    flattened_pd$lag_spaces[is_on_newline] <- flattened_pd$lag_spaces[is_on_newline] + 2
     serialized_transformed_text <- serialize_parse_data_flattened(flattened_pd)
   } else {
     serialized_transformed_text <- map2(
