options(width = 500)

# Dosing Pots 
DPList=read.csv("DP.csv",header=TRUE)

# Dosing Pot, 5 litre capacity
DP_A=subset(DPList,Capacity==5.0)
DP_A$typeName=rep("Dosing Pot,5 litre capacity",nrow(DP_A))

DP_B=subset(DPList,Capacity==3.5)
DP_B$typeName=rep("Dosing Pot,3.5 litre capacity",nrow(DP_B))

DPName ="Schedule of Dosing Pots"
DP=rbind(DP_A,DP_B)


df=data.frame(Group = character(), productType = character(), stringsAsFactors = FALSE)

G1_Name="Smoke Control System"
G1=c(DP_A$typeName[1],DP_B$typeName[1])


library(htmltools)
library(htmlTable)

html=tags$html(
tags$body(
tags$h2(G1_Name),
tags$ul(
  lapply(G1, function(item) {tags$li(item)})),
tags$h1(DPName),
tags$table(htmlTable(DP))))

save_html(html, "header.html")