闪亮:合并DT :: datatable中的单元格

时间:2016-09-14 06:49:09

标签: shiny dt

我想在闪亮的DT :: datatable中合并列中的几行。是否可以这样做?

目前我可以输出看起来像这样的内容:

enter image description here

但理想情况下我想合并行并希望输出如下内容:

enter image description here

是否可以在DT :: datatable中合并这样的行?

2 个答案:

答案 0 :(得分:3)

datatables-rowsgroup library的帮助下是可能的。这是一个示例:

library(shiny)
library(DT)

dat <- iris[c(1,2,3,51,52,53,101,102,103), c(5,1,2,3,4)]

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

server <- function(input, output){
  output[["table"]] <- renderDT({
    dtable <- datatable(dat, rownames = FALSE, 
                        options = list(
                          rowsGroup = list(0) # merge cells of column 1
                        ))
    path <- "U:/Data/shiny/DT/www" # folder containing dataTables.rowsGroup.js
    dep <- htmltools::htmlDependency(
      "RowsGroup", "2.0.0", 
      path, script = "dataTables.rowsGroup.js")
    dtable$dependencies <- c(dtable$dependencies, list(dep))
    dtable
  })
}

shinyApp(ui, server)

enter image description here

答案 1 :(得分:0)

据我所知,在DT中不可能做到这一点,我有另一种方法可以实现它。

 kable(c, align = "c") %>%
  kable_styling(bootstrap_options = "striped", full_width = F, position = "left",font_size = 12)%>%
  column_spec(1, bold = T) %>%
  collapse_rows(columns = 1, valign = "middle")

请尝试一下,它会起作用:)