如何使用checkboxgroup输入在R闪亮中提出数据表？

Question

• 我正在使用DT包中的数据表
• 尝试使用checkboxgroup输入，以便我可以为表的输出选择多个变量

我研究没有谷歌找到一些示例代码，但很难申请。

任何专家都可以提供帮助！？

谢谢！

Answer 1

您可以根据复选框输入使用[]对数据进行子集化。

library(shiny)

shinyApp(
  fluidPage(
    checkboxGroupInput('checkbox', 'select columns', names(mtcars), inline = TRUE),
    DT::dataTableOutput('table')
  ),
  function(input, output)
    output$table <- DT::renderDataTable({ mtcars[input$checkbox] })
)

编辑：以下是一些代码，用于说明我在评论中提到的内容

library(shiny)

shinyApp(
  fluidPage(
    checkboxGroupInput('checkbox', 'select columns', unique(mtcars$gear),
                       unique(mtcars$gear), inline = TRUE),
    DT::dataTableOutput('table')
  ),
  function(input, output)
    output$table <- DT::renderDataTable({ 
      subset(mtcars, gear %in% input$checkbox) 
    })
)