如何使用checkboxgroup输入来创建R闪存中的数据表？

Question

• 我使用的DataTable从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) 
    }) 
)