我目前正在尝试将我在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")
)
}
)
行选择当前处于多种模式,这有效,但我不希望选择超过两行。
答案 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
}
})
}
)
此解决方案可能不太干净,但更容易理解。