R Function For Creating HTML Table with headers that span multiple columns