R reactable with Shiny -过滤或排序选定的行

Question

将reactable R package与Shiny一起使用时，如何过滤(使选定行可见)或按选定行排序(使选定行位于顶部)？对于普通的列，使用搜索或点击标题排序可以很容易地做到这一点。

下面是一个最小的例子

library(shiny)
library(reactable)

ui <- fluidPage(
  reactableOutput("table")
)

server <- function(input, output) {
  output$table <- renderReactable({
    reactable(
      iris
      , selection = 'multiple'
      , onclick = 'select'
      , searchable = TRUE
    )
  })
}

shinyApp(ui, server)

目标是根据选定的行进行排序(或过滤)，列以蓝色突出显示

​

Answer 1

您可以使用reactable online demo查找所需的选项。

这适用于筛选和排序：

library(shiny)
library(reactable)

ui <- fluidPage(
  reactableOutput("table")
)

server <- function(input, output) {
  output$table <- renderReactable({
    reactable(
      iris
      , selection = 'multiple'
      , searchable = TRUE
      , filter = TRUE
      , sortable = TRUE
    )
  })
}

如果查看创建的表的HTML语言，就会发现select元素rt select与header元素rt sort header不具有相同的类，这表明对所选内容进行排序还不可用。

​