alignment ignore option must be part of more specs

Author: lorenzwalthert

R/utils-cache.R

@@ -204,9 +204,11 @@ get_cache_dir <- function(cache_name = cache_get_name()) {
 #' Syntactic sugar for creating more specs. This is useful when we want to add
 #' more arguments (because we can search for this function in the source code).
 #' @keywords internal
-cache_more_specs <- function(include_roxygen_examples, base_indention) {
+cache_more_specs <- function(include_roxygen_examples,
+                             base_indention) {
   list(
     include_roxygen_examples = include_roxygen_examples,
-    base_indention = base_indention
+    base_indention = base_indention,
+    ignore_alignment = getOption("styler.ignore_alignment", FALSE)
   )
 }

man/combine_children.Rd

@@ -10,6 +10,20 @@ test_that("base_indention is respected in caching", {
   )
 })
 
+test_that("ignore_alignment is respected in caching", {
+  local_test_setup(cache = TRUE)
+  text <- c("call(", "  arxone = 1,", "  tw3    = 2", ")")
+  text_without_alignment <- c("call(", "  arxone = 1,", "  tw3 = 2", ")")
+  with_detection <- style_text(text)
+  withr::local_options(styler.ignore_alignment = TRUE)
+  without_detection <- style_text(text)
+  expect_equal(
+    as.character(without_detection),
+    as.character(text_without_alignment)
+  )
+  cache_info(format = "tabular")$size == 2
+})
+
 test_that("cache is deactivated at end of caching related testthat file", {
   expect_false(cache_is_activated())
 })