0

reactable用来在我闪亮的应用程序中制作一张桌子。我在其中添加了搜索栏,但它仅适用于表格的主要行。如果我有可扩展的行,它就不起作用。我也想在可扩展的行中搜索值。例如,如果您搜索“前”字,则应过滤在嵌套/可扩展行中包含它的行。请看一下我的简短且可行的示例:

if (interactive()) {
  
  library(shiny)
  library(reactable)
  
  data <- MASS::Cars93[, 1:5]
  dataDetails <- MASS::Cars93[, c(1,6,9,10)]
  
  MASS::Cars93
  
  ui <- fluidPage(
    reactableOutput("table")
  )
  
  server <- function(input, output) {
    output$table <- renderReactable({
      reactable(
        data,
        searchable = TRUE,
        selection = "multiple",
        details = function(index){
          extraData <- subset(dataDetails, data[[1]] == dataDetails[[1]][index])
          htmltools::div(style = "padding: 16px",
                         reactable::reactable(extraData, outlined = TRUE))
        }
        
      )
    })
    
  }
  
  shinyApp(ui, server)
}

我尝试使用 js(在搜索栏中的 keyup 事件上自动展开行,然后在展开的行中搜索),但它对我不起作用,实际上它是非常慢的解决方案。

4

0 回答 0