fmt_kbl(mtcars[, 1:3], align = c("r", "c", "r"),
col.names = c("Column 1", "Column 2", "Column 3"),
caption = "Example Table Title") %>%
kableExtra::column_spec(1, width = "20em") %>%
fmt_kbl_header()
Run the code above in your browser using DataLab