具有renderDataTable的colspan是否可以在shiny中使用？

是否可以将colspan与renderDataTable一起使用（或由其他黑客使用）来生成如下表：

编辑：也在shiny组中询问（）

请看这里 第2.6节自定义表格容器

# a custom table container
sketch = htmltools::withTags(table(
  class = 'display',
  thead(
    tr(
      th(rowspan = 2, 'Species'),
      th(colspan = 2, 'Sepal'),
      th(colspan = 2, 'Petal')
    ),
    tr(
      lapply(rep(c('Length', 'Width'), 2), th)
    )
  )
))
print(sketch)