Combination of stylerignore directives and `local()` leads to problematic styling

[IndrajeetPatil]

Problem

The following code

# styler: off
skip_if_not_installed("tibble")
local({
  x <- 1
})
# styler: on

is styled to-

# styler: off
local({
  x <- 1
})
skip_if_not_installed("tibble")
local
# styler: on

Note how skip() and local change their positions.

How to reproduce

Run the example code in interactive mode.
If you are looking for a more realistic example, run styler:::style_active_file() on this file.

Note

It's interesting that I can reproduce the issue in the minimal example posted above in the interactive mode, but not in a reprex.

[lorenzwalthert]

Seems a caching interaction. Full reprex:

full <- c(
  '# styler: off',
  'skip_if_not_installed("tibble")',
  'local({',
    'x<-1',
  '})',
  '# styler: on'
)
without_ignore <- full[c(-1, -length(full))]
styler:::local_test_setup(cache = TRUE)
styler::style_text(without_ignore)
#> skip_if_not_installed("tibble")
#> local({
#>   x <- 1
#> })
styler::style_text(full)
#> # styler: off
#> local({
#> x<-1
#> })
#> skip_if_not_installed("tibble")
#> local
#> # styler: on

^{Created on 2022-12-24 with reprex v2.0.2}

[lorenzwalthert]

Tough one o tell you… these interactions between caching and stylerignore are hard to get right, but I think I found a solution after hours of digging. Will push later and hopefully be able to explain Tue problem and the solution.