# Load required packages
library(gt)
library(htmltools)

# Create sample data frames
data1 <- data.frame(
  Category = c("A", "B", "C"),
  Value = c(10, 20, 30)
)

data2 <- data.frame(
  Category = c("X", "Y", "Z"),
  Value = c(15, 25, 35)
)

# Create gt tables
table1 <- data1 %>%
  gt() %>%
  tab_header(title = "Table 1")

table2 <- data2 %>%
  gt() %>%
  tab_header(title = "Table 2")

# Create an HTML document
html_content <- tagList(
  tags$head(tags$title("Combined Tables")),
  tags$body(
    table1,
    table2
  )
)

# Save HTML document
save_html(html_content, file = "combined_tables.html")