R Shiny - 在数据表的选择扩展中预选行

Question

如何使用 Shiny 中的 Datatables 的 Select 扩展预选行？我在这里查看了文档：https://datatables.net/extensions/select/。但我无法弄清楚。我尝试指定rows = 1:3，但没有任何效果：

library(DT)
library(shiny)

dat <- iris[1:17,]

shinyApp(
  ui = fluidPage(DTOutput("table")),

  server = function(input, output, session) {  

    output[["table"]] <- renderDT({
        datatable(
          dat,
          options = list(select = list(
            style = "multi", 
            rows = 1:3, 
            selector = "td:not(.notselectable)")),
          extensions = "Select", selection = "none")
    }, server = FALSE)

  }
)

注意。我正在使用 Datatables 的 Select 扩展，而不是 DT 包的行选择实现。所以selection = list(selected = 1:3) 将不起作用。

Answer 1

没有select.rows 选项。您可以使用回调：

output[["table"]] <- renderDT({
  datatable(
    dat,
    callback = JS("table.rows([0,1,2]).select();"),
    options = list(select = list(
      style = "multi", 
      selector = "td:not(.notselectable)")),
    extensions = "Select", selection = "none")
}, server = FALSE)