在R中，可以在条件面板中使用多个条件吗？

library(shiny)

# 定义UI
ui <- fluidPage(
  titlePanel("多条件筛选示例"),
  
  sidebarLayout(
    sidebarPanel(
      checkboxGroupInput("species", "选择物种:",
                         choices = c("setosa", "versicolor", "virginica")),
      sliderInput("petal_width", "花瓣宽度范围:",
                  min = 0, max = 2.5, value = c(0, 2.5))
    ),
    mainPanel(
      tableOutput("filtered_data")
    )
  )
)

# 定义服务器逻辑
server <- function(input, output) {
  output$filtered_data <- renderTable({
    iris %>%
      filter(Species %in% input$species,
             Petal.Width >= input$petal_width[1],
             Petal.Width <= input$petal_width[2])
  })
}

# 运行Shiny应用
shinyApp(ui = ui, server = server)

filtered_data <- reactive({
  iris %>%
    filter(Species %in% input$species,
           Petal.Width >= input$petal_width[1],
           Petal.Width <= input$petal_width[2])
})

output$filtered_data <- renderTable({
  filtered_data()
})