Keep focus columns in place

[krlmlr]

to avoid confusion. Needs cleanup.

library(tibble)
x <- tibble(a = tibble(x = 1, y = 2), b = "long enough")

x
#> # A tibble: 1 × 2
#>     a$x    $y b          
#>   <dbl> <dbl> <chr>      
#> 1     1     2 long enough
pillar::tbl_format_setup(x, width = 30, focus = "b")
#> <pillar_tbl_format_setup>
#> <tbl_format_header(setup)>
#> # A tibble: 1 × 2
#> <tbl_format_body(setup)>
#>     a$x    $y b          
#>   <dbl> <dbl> <chr>      
#> 1     1     2 long enough
#> <tbl_format_footer(setup)>
pillar::tbl_format_setup(x, width = 15, focus = "b")
#> <pillar_tbl_format_setup>
#> <tbl_format_header(setup)>
#> # A tibble: 1
#> #   × 2
#> <tbl_format_body(setup)>
#>     a$x b      
#>   <dbl> <chr>  
#> 1     1 long e…
#> <tbl_format_footer(setup)>
#> # … with 1
#> #   more
#> #   variable:
#> #   a$y <dbl>
pillar::tbl_format_setup(x, width = 10, focus = "b")
#> <pillar_tbl_format_setup>
#> <tbl_format_header(setup)>
#> # A
#> #   tibble:
#> #   1 × 2
#> <tbl_format_body(setup)>
#>   b       
#>   <chr>   
#> 1 long en…
#> <tbl_format_footer(setup)>
#> # … with
#> #   1
#> #   more
#> #   variable:
#> #   a <tibble[,2]>

^{Created on 2022-01-28 by the reprex package (v2.0.1)}

Underlines not shown in reprex, full output: https://rpubs.com/krlmlr/pillar-focus.