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



data <- read.csv("pipe_insulation.csv")
table <- gt(data) %>%
gt_theme_538() %>%
opt_table_font('courier') %>%
tab_row_group(rows = match("Phenolic Foam", data$Material),label = paste0("Phenolic Foam")) %>%
tab_row_group(rows = match("Mineral Wool", data$Material),label = paste0("Mineral Wool")) #%>%
gtsave(table, file = "pipe_insulation.html")


data = read.csv('https://docs.google.com/spreadsheets/d/1Bx5aKWk5ltA9HqU4Ma2dtdr12ih7ev5ZFyAeiFgqXw8/export?exportFormat=csv')
table <- gt(data) %>%
gt_theme_538() %>%
tab_row_group(rows = filter(Material == "Copper" & Application == "Plumbing"),label = paste0("Copper")) 
gtsave(table, file = "pipe_lengths.html")






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