Truncated list-cols don't seem to get grey coloring

[DavisVaughan]

i.e. <tibble> is white but should be grey like the other ones?

library(tidymodels)

tidymodels_prefer()

data(ames)

ex_data <- 
 ames %>% 
 nest(data1 = c(everything()), .by = Neighborhood) %>% 
 mutate(
  data2 = data1, 
  data3 = data1,
  data4 = data1,
  data5 = data1,
 )

options(width = 111)
print(ex_data)

[krlmlr]

Simpler reprex:

options(width = 40)

pillar:::new_tbl(n = 1L, list(
  a = "name",
  b = list(data.frame()),
  c = list(data.frame()),
  d = list(data.frame())
))
#> # A data frame: 1 × 4
#>   a     b            c            d     
#>   <chr> <list>       <list>       <list>
#> 1 name  <df [0 × 0]> <df [0 × 0]> <df>

^{Created on 2023-03-12 with reprex v2.0.2}

[krlmlr]

Even simpler:

pillar::pillar(list(data.frame()), width = 11)
#> <pillar>
#> <list>
#> <df>
pillar::pillar(list(data.frame()), width = 12)
#> <pillar>
#> <list>      
#> <df [0 × 0]>

^{Created on 2023-03-12 with reprex v2.0.2}