# Using texPreview to Convert TeX lines to Kable Objects

    library(texPreview)

    tex_opts$set(
      returnType = 'html',
      opts.html   = list(width = '50%', height = '50%')
    )

## read the lines in the tex file

    tex_file <- system.file('examples/toy/toy.tex',package = 'texPreview')

    readLines(tex_file)
    #>  [1] "\\begin{tabular}{cccc}" "\\toprule"              "C1 & C2 & C3 & C4\\\\"
    #>  [4] "\\midrule"              "a & c & 1 & 1\\\\"      "a & c & 2 & 1\\\\"
    #>  [7] "a & c & 3 & 1\\\\"      "a & c & 4 & 0\\\\"      "a & c & 5 & 0\\\\"
    #> [10] "\\addlinespace"         "a & c & 6 & 1\\\\"      "a & c & 7 & 1\\\\"
    #> [13] "a & d & 8 & 0\\\\"      "a & d & 9 & 0\\\\"      "a & d & 10 & 0\\\\"
    #> [16] "\\addlinespace"         "b & c & 11 & 0\\\\"     "b & c & 12 & 0\\\\"
    #> [19] "b & d & 13 & 1\\\\"     "b & d & 14 & 1\\\\"     "b & d & 15 & 0\\\\"
    #> [22] "\\bottomrule"           "\\end{tabular}"

## convert lines into knitr_kable

    kbl <- tex_file |>
      texPreview::as.kable()

## preview the table

    kbl |>
      texPreview::tex_preview()

plot of chunk unnamed-chunk-5

## use kableExtra to manipulate the table and preview

    kbl |>
      kableExtra::collapse_rows(columns = 1:2,
                                latex_hline = "major",
                                valign = "middle") |>
      texPreview::tex_preview()

plot of chunk unnamed-chunk-6