latex <- kableExtra::kbl(mtcars[1:2, 1:2], format = "latex")
parsed <- parseLatex(latex)
table <- parsed[[find_tabular(parsed)]]
table <- prepare_table(table)
find_rules(table)
rules(table)
find_rule(table, 1)
rule(table, 1)
rule(table, 2) <- "\\midrule"
table
Run the code above in your browser using DataLab