Как объединить несколько таблиц HTML (Kable) в одном изображении?

Question

Я хотел бы объединить несколько kable таблиц в одно изображение.Что-то вроде:

library(knitr)
library(kableExtra)
dt <- mtcars[1:5, 1:4]

# first table
table1 <- kable(dt, format = "html", caption = "Demo Table") %>%
  kable_styling(bootstrap_options = "striped",
                full_width = F) %>%
  add_header_above(c(" ", "Group 1" = 2, "Group 2[note]" = 2)) %>%
  add_footnote(c("table footnote"))

# second table
table2 <- kable(dt, format = "html", caption = "Demo Table") %>%
  kable_styling(bootstrap_options = "striped",
                full_width = F) %>%
  add_header_above(c(" ", "Group 1" = 2, "Group 2[note]" = 2)) %>%
  add_footnote(c("table footnote"))

и поместите table1 поверх table2 на изображении:

bind_rows(table1, table2) %>% 
  kable_as_image(., filename = 'P:/mytable/table')

Однако это не работает.Как я могу это сделать?Спасибо!