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

data = read.csv('https://docs.google.com/spreadsheets/d/1Bx5aKWk5ltA9HqU4Ma2dtdr12ih7ev5ZFyAeiFgqXw8/export?exportFormat=csv')

table <- gt(data) %>%
gt_theme_538() %>%

tab_row_group(rows = which(data$Material == "Copper" & data$D1 == "C12"),label = paste0("Copper & C12")) %>%
tab_row_group(rows = which(data$Material == "Plastic" & data$D1 == "C11"),label = paste0("Plastic & C11")) %>%
tab_row_group(rows = which(data$Material == "Plastic" & data$D1 == "C13"),label = paste0("Plastic & C13")) %>%

tab_header(title = gt::html("<h1 style='color:red'>Pipe Lengths</h1>")) %>%
tab_style(style = list(cell_fill(color = "#FFCC00")),locations = cells_row_groups())
gtsave(table, file = "pipe.html")


system("wkhtmltopdf -O landscape toc *.html pipe.pdf")