如何将我的selectInput链接到我的DataTable以根据选择更新表？(这是R闪亮)

install.packages("shiny")
library(shiny)

selectInput(inputId = "brand", label = "选择汽车品牌", choices = c("所有", "奥迪", "宝马", "奔驰"))

filteredData <- reactive({
  data <- read.csv("汽车数据.csv")  # 从CSV文件中读取数据
  brand <- input$brand  # 获取selectInput的选择
  if (brand == "所有") {
    return(data)  # 如果选择为"所有"，返回所有数据
  } else {
    return(data[data$品牌 == brand, ])  # 否则，根据选择的品牌过滤数据
  }
})

output$table <- renderDataTable({
  filteredData()  # 渲染根据选择更新后的表格
})

dataTableOutput(outputId = "table")

# app.R

library(shiny)

ui <- fluidPage(
  selectInput(inputId = "brand", label = "选择汽车品牌", choices = c("所有", "奥迪", "宝马", "奔驰")),
  dataTableOutput(outputId = "table")
)

server <- function(input, output) {
  filteredData <- reactive({
    data <- read.csv("汽车数据.csv")
    brand <- input$brand
    if (brand == "所有") {
      return(data)
    } else {
      return(data[data$品牌 == brand, ])
    }
  })
  
  output$table <- renderDataTable({
    filteredData()
  })
}

shinyApp(ui = ui, server = server)