latex <- kableExtra::kbl(mtcars[1:2, 1:2], format = "latex")
parsed <- parseLatex(latex)
table <- parsed[[find_tabular(parsed)]]
table
find_posOption(table)
posOption(table)
posOption(table) <- "h"
posOption(table)
find_widthOption(table)
widthOption(table)
find_columnOptions(table)
columnOptions(table)
columnOption(table, 3)
columnOptions(table) <- "lrr"
table
columnOption(table, 3) <- "p{1cm}"
columnOptions(table)
Run the code above in your browser using DataLab