在Shiny中限制DT表中的行选择

时间:2017-05-05 13:07:53

标签: r shiny dt

我目前正在尝试将我在Shiny中的DataTable中的选择限制为仅两行 - 我希望表格不允许用户点击多行(但也可以在之后取消选择它们)。< / p>

library(DT)
shinyApp(
  ui = fluidPage(
    fluidRow(
      column(12,
             dataTableOutput('table')
      )
    )
  ),
  server = function(input, output) {
    output$table <- DT::renderDataTable(iris, 
                                    options = list(selection = "multiple")
    )
  }
)

行选择当前处于多种模式,这有效,但我不希望选择超过两行。

1 个答案:

答案 0 :(得分:2)

你可以通过javascript解决它,你可能已经看过了: Limit row selection to 3 in datatables

或者您在Shiny中更新数据表:

library(DT)
library(shiny)
shinyApp(
  ui = fluidPage(
    fluidRow(
      column(12,dataTableOutput('tbl'))
    )
  ),
  server = function(input, output) {
    reset <- reactiveValues(sel = "")
    output$tbl <- DT::renderDataTable({
      input$tbl_rows_selected
      datatable(iris, selection = list(mode = 'multiple', selected = reset$sel))
    })

    observe({
      if(length(input$tbl_rows_selected) > 2){
        reset$sel <- setdiff(input$tbl_rows_selected, input$tbl_row_last_clicked)
      }else{
        reset$sel <- input$tbl_rows_selected
      }
    })
  }
)

此解决方案可能不太干净,但更容易理解。