0

reactable光沢のあるアプリでテーブルを作成するために使用しています。検索バーを追加しましたが、テーブルのメイン行でしか機能しません。展開可能な行がある場合、機能しません。展開可能な行でも値を検索したい。たとえば、「Front」という単語を検索する場合、ネストされた/展開可能な行に含まれる行をフィルタリングする必要があります。私の短くて実行可能な例を見てください:

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を試しました(検索バーのキーアップイベントで行を自動的に展開し、展開された行を検索します)が、うまくいきませんでした。実際、それは非常に遅い解決策でした。

4

0 に答える 0