Я хотел бы объединить несколько строк в столбце в DT :: datatable в блестящем цвете. Возможно ли это сделать?
В настоящее время я могу выводить что-то вроде этого:
Но в идеале я хотел бы объединить строки и вывести что-то вроде этого:
Можно ли объединить такие строки в DT :: datatable?
Это возможно с помощью библиотеки datatables-rowsgroup. Вот пример:
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)
эй, насколько я знаю, это невозможно сделать в 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")
пожалуйста, попробуйте, и он работает :)
