在R Shiny中使用多个输入的数据反应过滤

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      numericInput("input1", "Input 1", value = 0),
      numericInput("input2", "Input 2", value = 0),
      numericInput("input3", "Input 3", value = 0)
    ),
    mainPanel(
      tableOutput("filtered_data")
    )
  )
)

server <- function(input, output) {
  # 创建观察者，当任何一个输入发生变化时，执行响应函数
  observeEvent(c(input$input1, input$input2, input$input3), {
    # 获取输入的值
    input1 <- input$input1
    input2 <- input$input2
    input3 <- input$input3
    
    # 根据输入的值进行过滤操作
    filtered_data <- filter_data(input1, input2, input3)
    
    # 将过滤后的数据输出
    output$filtered_data <- renderTable(filtered_data)
  })
}

# 根据输入的值进行数据过滤的函数
filter_data <- function(input1, input2, input3) {
  # 在这里根据输入的值进行数据过滤操作，返回过滤后的数据
  # 示例代码中使用了data.frame()函数创建一个简单的数据框作为示例
  data <- data.frame(
    x = c(1, 2, 3, 4, 5),
    y = c(6, 7, 8, 9, 10)
  )
  
  filtered_data <- data[data$x > input1 & data$y > input2 & data$x + data$y < input3, ]
  
  return(filtered_data)
}

shinyApp(ui, server)