How can I overlay values on flextable minibars?

Question

The closest I can get with flextable is this:

What I'd like to achieve is something like this - knocked up with ggplot2:

Any ideas? or is this a feature request?

Code used to generate flextable:

library(tibble)
library(flextable)


tib <- tibble(v1 = letters[1:4],
              v2 = c(1, 3, 5, 2))


tib %>% 
  flextable()%>% 
  width(j = 1:2, width = c(0.5, 1.5)) %>% 
  mk_par(j = 2,
         value = as_paragraph(as_chunk(v2, formater = function(x) sprintf("%.0f", x)),
                              " ",
                              minibar(value = v2, max = sum(v2))
                              ),
  part = "body")