数据帧上的R闪亮过滤器

Question

我需要在我的 Shiny App 中对数据框应用过滤器。 我正在寻找一些按钮（小按钮），它可以打开特定列的值的多选列表。类似于 Excel 的表格过滤器

举个例子（来自another topic）：

library(shiny)
shiny::runApp(list(
  ui = fluidPage(
    checkboxGroupInput("specy", "Specy", choices = levels(iris$Species)),
    tableOutput("content")
  ),
  server = function(input, output, session) {
    output$content <- renderTable({
      iris[iris$Species == input$specy, ]
    })
  }
))

来自the widget fallery 的一些想法：使用点击actionButton 时出现的checkboxGroupInput

欢迎各种建议。谢谢

Answer 1

这可以帮助您完成大部分工作，但是一旦您选择了一个选项，它就无法隐藏复选框：

library(shiny)
shiny::runApp(list(
  ui = fluidPage(
    actionButton("show_checkbox", "Show Choices"),
    uiOutput("checkbox"),
    tableOutput("content")
  ),
  server = function(input, output, session) {
    output$checkbox <- renderUI({
        if ( is.null(input$show_checkbox) ) { return(NULL) }
        if ( input$show_checkbox == 0 ) { return(NULL) }
        return(checkboxGroupInput("specy", "Specy", choices = levels(iris$Species)))
    })
    output$content <- renderTable({
        if ( is.null(input$specy) ) { return(iris) }
        if ( length(input$specy) == 0 ) { return(iris) }
      iris[iris$Species == input$specy, ]
    })
  }
))