我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 事件上自动展开行,然后在展开的行中搜索),但它对我不起作用,实际上它是非常慢的解决方案。