如何在R Shiny应用程序中使DT数据表行选择粘性

时间:2017-10-16 18:30:51

标签: r shiny

表中的行可能会动态更改,但用户应保留现有的行选择。选定的行按行索引存储,因此当呈现新的datatable()时,如何保留选定的行?

1 个答案:

答案 0 :(得分:0)

解决方案分为两部分。首先,selection中的datatable()参数可以采用list(mode='multiple', selected=c(1,3))

形式的列表

第二部分是确定新表中保留的选定行。 第二部分的一个解决方案是将数据表的副本存储为会话变量。生成新数据表时,将旧表与新表进行比较。根据旧表和新表中的公共行计算一组新的选定行索引。通过使用which(newkeys %in% oldkeys)成语找到新表中的行索引。

以下是一个例子:

library(shiny)

ui <- fluidPage(
  checkboxInput('yellow.only', 'Yellow Only'),
  uiOutput('fruit.selection'),
  DT::dataTableOutput("dt.fruit.selection")
)

server <- function(input, output) {

  fruit.options <- reactive({
    all.fruits <- c(grape='Grape', banana='Banana', papaya='Papaya', raspberry='Raspberry')
    yellow.fruits <- c(FALSE, TRUE, TRUE, FALSE)
    all.fruits[yellow.fruits | !input$yellow.only]
  })

  fruit.options.df <- reactive({
    data.frame(fruits=fruit.options(), some.other.col=nchar(fruit.options()))
  })

  output$fruit.selection <- renderUI({ selectInput('fruit', 'Fruit', choices=fruit.options(), selected=input$fruit, multiple=TRUE, selectize=FALSE, size=length(fruit.options())) })

  output$dt.fruit.selection <- DT::renderDataTable({
    if (!exists('fruit.options.cache') || identical(fruit.options.cache, fruit.options.df())) {
        rows.selected <- isolate(input$dt.fruit.selection_rows_selected)
    } else {
      rows.selected <- which(fruit.options.df()$fruit %in% fruit.options.cache$fruits[isolate(input$dt.fruit.selection_rows_selected)])
    }

    fruit.options.cache <<- fruit.options.df()
    DT::datatable(fruit.options.cache, rownames=FALSE, selection=list(mode="multiple", selected=rows.selected))
  })
}

# Run the application 
shinyApp(ui = ui, server = server)

这也可以通过shiny::runGist("https://gist.github.com/dkulp2/7ebb1c936d08f3434127e58d7798af28")

从RStudio运行