是否可以在DT数据表中设置默认选中的复选框？ [英] Is it possible to set the tickboxes selected by default in a DT datatable?

问题描述

我想问一下是否有可能在DT数据表中默认选中所有行的复选框（而不是取消选中）。

I would like to ask if it is possible to have the tickboxes of all the rows selected by default -instead of deselected- in a DT datatable.

library(DT)
library(tidyverse)
dataTableOutput("irisTable")
output$irisTable <- renderDataTable(
    iris %>% rowid_to_column("Row") %>% mutate(Row = ""),
    rownames = FALSE,
    extensions = "Select",
    options = list(
        columnDefs = list(list(className = "select-checkbox", targets = 0, orderable = FALSE)),
        select = list(style = "multi", selector = "td:first-child")
        ))

推荐答案

是的，您可以编写自定义的 JS 像这样的函数：
在这里，我们预选择第1,3和4行（请注意，计数从0开始）

Yes, you can write the custom JS Function like so: Here we pre-select the rows 1,3 and 4 (note that the count starts from 0)

library(DT)
library(tidyverse)
library(shiny)

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

jsfunc <- "function() {arrIndexes=[1,3,4]; $('#irisTable tbody tr').filter(function(index) {return arrIndexes.indexOf(index) > -1;}).click()}"

server <- function(input, output){

  output$irisTable <- renderDataTable(
    iris %>% rowid_to_column("Row") %>% mutate(Row = ""),
    rownames = FALSE,
    extensions = "Select",
    options = list(
      initComplete = JS(jsfunc),
      columnDefs = list(list(className = "select-checkbox", targets = 0, orderable = FALSE)),
      select = list(style = "multi", selector = "td:first-child")
    ))
}

shinyApp(ui, server)

这篇关于是否可以在DT数据表中设置默认选中的复选框？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！