解决方法
Theres已经是例子http://rstu@R_403_410@.github.io/DT/
library(DT)
sketch = htmltools::withTags(table(
class = 'display',thead(
tr(
th(rowspan = 2,'Species'),th(colspan = 2,'Sepal'),'Petal')
),tr(
lapply(rep(c('Length','Width'),2),th)
)
)
))
datatable(iris[1:20,c(5,1:4)],container = sketch,rownames = FALSE)
