Printing side-by-side data.table with title to PDF - r

Question

I created a table from a data.frame using:
t_eth1 <- table(df_all$lettergrade1,df_all$ethnicity).
My output is great. I can run chisq.test on it just fine. class(t_eth1) = "Table"
It looks like: (there are headers for columns tmp2....tmp8 but no header for column tmp1...this gives me grief when trying to tibble as there is size mismatch and I don't know what to do about that).
tmp1 <- c("A","B","C","D","F")
tmp2 <- c(0,1,1,1,0)
tmp3 <- c(4,1,4,1,0)
tmp4 <- c(0,0,2,0,0)
tmp5 <- c(3,5,12,2,0)
tmp6 <- c(1,5,6,2,0)
tmp7 <- c(8,10,16,3,2)
tmp8 <- c(0,2,2,1,0)
My table will look similar to:
tst <- table(mtcars$cyl,mtcars$mpg)
I have many of these tables. I'd like to print them in some sort of grid fashion with a title above each table and the chisq.stat I calculated below each table.
table1title1 tabletitle2
| val val val | | val val val|
| val val val | | val val val|
| val val val | | val val val|
p-value chi stuff p-value chi stuff
I cannot seem to get these to print using either of these. (it will print to the code box in Rstudio, but not to console like I'd expect from plot or ggplot
pdf(file="testprint.pdf",onefile=T)
t_eth1 <or> print(t_eth1)
dev.off()
I've tried gtable, but it wants a tibble input and I can't seem to convert data.table to tibble.
I've tried miktex, but it won't take the table format; in the error log it give me: "! Sorry, but C:\Users\datad\AppData\Local\Programs\MiKTeX\miktex\bin\x64\pdflatex.exe did not succeed."
I've tried expss which allows me to set.caption above tables, but it won't print the table to the pdf file.
I'm stuck. A little hand holding would be great.
> R.Version()
$platform
[1] "x86_64-w64-mingw32"
$arch
[1] "x86_64"
$os
[1] "mingw32"
$system
[1] "x86_64, mingw32"
$status
[1] ""
$major
[1] "4"
$minor
[1] "0.2"
$year
[1] "2020"
$month
[1] "06"
$day
[1] "22"
$`svn rev`
[1] "78730"
$language
[1] "R"
$version.string
[1] "R version 4.0.2 (2020-06-22)"
$nickname
[1] "Taking Off Again"