как объединить несколько таблиц html (kable) в одно изображение?

Я хотел бы объединить несколько таблиц 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')

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