How to make the table title span the whole page width in kbl()?

Question

I am working with new version of kable tables, which is kbl() , you can find it here

library(kableExtra)
mtcars[,1:2] %>% 
  kbl(caption = "very long