latex <- kableExtra::kbl(mtcars[1:2, 1:2], format = "latex")
parsed <- parseLatex(latex)
table <- prepare_table(parsed[[find_tabular(parsed)]], do_cells = TRUE)
find_tableCell(table, 1, 2)
tableCell(table, 1, 2)
tableCell(table, 5, 2) <- " d "
table
Run the code above in your browser using DataLab