合并DT :: datatable中的列

Question

我需要合并闪亮的DT :: datatable中跨列的单元格。最好的方法似乎是利用Javascript DataTables扩展RowGroup。但是我不知道从查看以上链接中的页面到合并闪亮的应用程序中的单元格（我正在闪亮的 reason 中工作），应该采取什么步骤。

在this stackoverflow question的公认答案中有一个部分答案，但是1）关于合并行（即垂直而不是水平），以及2）交互作用背后的机制R和Javascript似乎被认为是先验知识，给我留下了一些问题，例如“我需要从哪里下载哪些文件”和“我需要调整其中的Javascript代码？”

这是我的应用程序的简化示例：

library(shiny)
library(DT)

tbl <- data.frame("A"=c("foo", 1L, "question"),
                  "B"=c("bar", 2L, "answer"))

ui <- fluidPage(
  dataTableOutput("table")
)

server <- function(input, output) {

  output$table <- renderDT({
    datatable(tbl, rownames=F, class="",
              options = list(autoWidth=T,
                             columnDefs = list(list(className="dt-center", targets="_all"),
                                               list(width="40px", target="_all"))))
  })
}

shinyApp(ui = ui, server = server)

我想从这里开始

对此

Answer 1

使用Units Code RESULT ----- ---- ------ 1 AUD 2.6 1 BRL 0.9 1 BGN 2.2 1 CAD 2.9 100 CLP 0.5

可能对您有用

htmltools