如何使用复选框组输入在 R 闪亮中提出数据表？答案

【问题标题】：How do I use checkboxgroup input to come up with a datatable in R shiny?如何使用复选框组输入在 R 闪亮中提出数据表？
【发布时间】：2017-12-19 20:06:44
【问题描述】：

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

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

有没有高手可以帮忙！？

谢谢！！

【问题讨论】：

标签： r checkbox datatable shiny dt

【解决方案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] })
)

编辑：这里有一些代码来说明我在 cmets 中提到的内容

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) 
    })
)

【讨论】：

感谢您的帮助！我想我正在接近我想要的地方。这是用于选择我们要显示的列的编码。有什么方法可以在列中做到这一点？就像我想显示齿轮 == 4 的数据表。所以 checkboxgroup 将是齿轮 1 到 5。我希望我说的有道理。
谢谢 Gregor de Cillia library(shiny) shinyApp(fluidPage( checkboxGroupInput('checkbox', 'select columns', unique(mtcars$gear), inline = TRUE), DT::dataTableOutput(' table') ), function(input, output) output$table 有什么方法可以让我们打开网页的时候所有的复选框都被选中？
checkboxGroupInput 有一个参数selected，它将定义最初选择的选项。如果您使用与choices 中相同的值，则应选择所有内容