library(magrittr)
library(gt)
library(ggplot2)
library(htmltools)

data <- read.csv("P004.csv")

table <- gt(data) %>%
tab_row_group(rows = which(rownames(data) %in% rownames(data[data$D1 == "C12", ])),label = "P004A") %>%
tab_row_group(rows = which(rownames(data) %in% rownames(data[data$D1 == "C13", ])),label ="P004B") %>%
rows_order(order = c("P004A", "P004B"))
     
#table <- table %>%
#tab_style(style = list(cell_fill(color = "#FFCC00")),locations = cells_row_groups())


  # Save table as HTML
html_file_name <- paste0("P004_table.html")
#  header <- tags$h1(paste0("Report Title ", num))
#  html_content <- tagList(header, table)
#  html <- html_print(html_content)
#  write(html, file = paste0("P", num, "_table.html"))
gtsave(table, file = html_file_name)

  # Convert HTML to PDF
#  pdf_file_name <- paste0("table", num, ".pdf")
#  system(paste0("wkhtmltopdf ", html_file_name, " ", pdf_file_name))



#html_files <- list.files(path = temp_dir, pattern = "\\.html$", full.names = TRUE)

# Convert HTML files to PDF using wkhtmltopdf
#pdf_file_name <- "output.pdf"
#system2("wkhtmltopdf", c(html_files, pdf_file_name))

system("wkhtmltopdf *.html output.pdf")