是否有可能有两个不同的输入可以使用闪亮的 R 过滤我的 DT 表？

Question

我有一个应用程序，它允许我通过输入来查看过滤器的汽车数量。

这是我的代码。

```{r}

selectInput("input_type","Select Cylinder Size: ", c("All", mtcars$cyl))
selectInput("input_type2", "Select # of Gears: ", c("All", mtcars$gear))

mtcars2 <- reactive({
  if(input$input_type=="All")
    mtcars
  else
    subset(mtcars,cyl == input$input_type)
  })


renderDataTable(
  datatable(mtcars2())
  )  

```

虽然我有第二个输入也可以让我按齿轮过滤，但它不起作用，因为我不知道如何将它与反应函数联系起来。

有什么想法吗？

Answer 1

类似这样的[未经测试的代码]：

selectInput("input_type","Select Cylinder Size: ", c("All", mtcars$cyl))
selectInput("input_type2", "Select # of Gears: ", c("All", mtcars$gear))

mtcars2 <- reactive({
  d <- mtcars
  if(input$input_type !="All")
    d <- subset(d, cyl == input$input_type)
  if(input$input_type2 !="All")
    d <- subset(d, gear == input$input_type2)
  d
  })


renderDataTable(
  datatable(mtcars2())
  )  

顺便说一句，在为输入定义选择列表时，您可能希望使用unique。