r - 如何使用闪亮的 inputpael 按列中的类别过滤我的数据框？Rshiny 和 RMarkdown

Question

我正在尝试制作一个简单的闪亮应用程序，我可以在其中选择气缸（4,6 或 8）的输入，然后生成一个包含 4,6 或 8 个气缸的汽车的表格。

这是我的代码

---
title: "Test Dash"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    runtime: shiny
  
---

  Inputs {.sidebar data-width=300}
=====================================
  
$$\\[.01in]$$
  
```{r pressure, echo=FALSE, out.width = '100%'}
library(readr)
library(shiny)
library(DT)

```


```{r}

cylinder <- mtcars$cyl

selectInput("my_dropdown", label = "Select Cylinders:", choices = cylinder)

```

# Overview

Column {data-width=750}
-----------------------------------------------------------------------
### Table
  
```{r}
renderDataTable(
  datatable(mtcars[input$my_dropdown,]
  )  
)

```

我能够生成输入和一个空表，但是当我选择一个圆柱体时该表不会更新。这是一个屏幕截图。

知道如何解决这个问题吗？

Answer 1

mtcars2 <- reactive({
    mtcars[mtcars$cyl == input$my_dropdown,]
})

renderDataTable(
  datatable(mtcars2())
  )  
)