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

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

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

这是我的代码。

```{r}

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

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


renderDataTable(
  datatable(mtcars2())
  )  

```

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

有什么想法吗？

解决方法

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

selectInput("input_type","Select Cylinder Size: ",c("All",mtcars$cyl))
selectInput("input_type2","Select # of Gears: ",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。