在Shiny中基于用户输入的过滤是不起作用的

library(shiny)
library(dplyr)

# 假设我们有一个数据框df
df <- data.frame(
  Name = c("Alice", "Bob", "Charlie", "David"),
  Age = c(25, 30, 35, 40),
  Salary = c(50000, 60000, 70000, 80000)
)

ui <- fluidPage(
  titlePanel("Shiny Filter Example"),
  
  sidebarLayout(
    sidebarPanel(
      sliderInput("ageFilter", "Age Range:", 
                  min = min(df$Age), max = max(df$Age), 
                  value = c(min(df$Age), max(df$Age))),
      selectInput("nameFilter", "Name:", 
                  choices = unique(df$Name), multiple = TRUE)
    ),
    
    mainPanel(
      tableOutput("filteredTable")
    )
  )
)

server <- function(input, output) {
  
  filteredData <- reactive({
    df %>%
      filter(Age >= input$ageFilter[1] & Age <= input$ageFilter[2]) %>%
      filter(Name %in% input$nameFilter)
  })
  
  output$filteredTable <- renderTable({
    filteredData()
  })
}

shinyApp(ui = ui, server = server)