new R option to ignore alignment

Author: lorenzwalthert

NEWS.md

@@ -1,3 +1,6 @@
+* New R option `styler.ignore_alignment` controls if alignment should be 
+  detected (and preserved) or not (#932).
+
 # styler 1.7.0
 
 * if `else` follows directly after `if`, line breaks are removed (#935).

R/rules-spaces.R

@@ -18,7 +18,8 @@ set_space_around_op <- function(pd_flat, strict) {
   }
   if (sum(pd_flat$lag_newlines) > 2 &&
     is_function_call(pd_flat) &&
-    any(pd_flat$token %in% c("EQ_SUB", "','"))
+    any(pd_flat$token %in% c("EQ_SUB", "','")) &&
+    !getOption("styler.ignore_alignment", FALSE)
   ) {
     is_on_aligned_line <- token_is_on_aligned_line(pd_flat)
   } else {

R/zzz.R

@@ -5,6 +5,7 @@
     styler.cache_root = NULL,
     styler.cache_name = styler_version,
     styler.colored_print.vertical = TRUE,
+    styler.ignore_alignment = FALSE,
     styler.ignore_start = "styler: off",
     styler.ignore_stop = "styler: on",
     styler.quiet = FALSE,

tests/testthat/test-public_api.R

@@ -496,3 +496,27 @@ test_that("Can display warning on unset styler cache", {
   withr::local_seed(7)
   expect_silent(ask_to_switch_to_non_default_cache_root(ask = TRUE))
 })
+
+
+test_that("alignment detection can be turned off.", {
+  withr::local_options(
+    "styler.ignore_alignment" = TRUE,
+    "styler.colored_print.vertical" = FALSE
+  )
+  text_in <- paste0(
+    "call(\n",
+    "  xb =  13,\n",
+    "  t  = 'a'\n",
+    ")"
+  )
+  text_out <- c(
+    "call(",
+    "  xb = 13,",
+    "  t = \"a\"",
+    ")"
+  )
+
+  expect_true(all(
+    style_text(text_in) == text_out
+  ))
+})