Inconsistent result width for ansi_collapse(style = "head")

[salim-b]

The documentation of ansi_collapse() states about param width:

Limit for the display width of the result, in characters. This is a hard limit, and the output will never exceed it.

But the following results prove this wrong:

library(magrittr)
x <- c("loooooooong", "healthy live the Penguin")

cli::ansi_collapse(x) %T>% print() %>% nchar()
#> [1] "loooooooong, and healthy live the Penguin"
#> [1] 41
cli::ansi_collapse(x, width = 1, style = "head") %T>% print() %>% nchar()
#> [1] "…"
#> [1] 1
cli::ansi_collapse(x, width = 2, style = "head") %T>% print() %>% nchar()
#> [1] "lo…"
#> [1] 3
cli::ansi_collapse(x, width = 3, style = "head") %T>% print() %>% nchar()
#> [1] "loo…"
#> [1] 4
cli::ansi_collapse(x, width = 4, style = "head") %T>% print() %>% nchar()
#> [1] "…, …"
#> [1] 4
cli::ansi_collapse(x, width = 5, style = "head") %T>% print() %>% nchar()
#> [1] "l…, …"
#> [1] 5

^{Created on 2023-01-28 with reprex v2.0.2}

(It's not really an issue for me, I just stumbled upon this while implementing #569 and thought it should be reported. 🙂)