当模块中的DT数据表和选择条件发生变化时，如何在Shiny中更新DT数据表

library(shiny)
library(DT)

ui <- fluidPage(
  DT::dataTableOutput("dt_output")
)

server <- function(input, output) {
  dt_data <- reactive({
    # 这里根据变化的选择条件重新生成数据表内容
    # 可以使用SQL查询、数据过滤等操作
    updated_data <- ...
    return(updated_data)
  })
}

server <- function(input, output) {
  dt_data <- reactive({
    # 这里根据变化的选择条件重新生成数据表内容
    # 可以使用SQL查询、数据过滤等操作
    updated_data <- ...
    return(updated_data)
  })
  
  output$dt_output <- DT::renderDataTable({
    DT::datatable(dt_data())
  })
}

server <- function(input, output) {
  dt_data <- reactive({
    # 这里根据变化的选择条件重新生成数据表内容
    # 可以使用SQL查询、数据过滤等操作
    updated_data <- ...
    return(updated_data)
  })
  
  output$dt_output <- DT::renderDataTable({
    DT::datatable(dt_data())
  })
  
  observe({
    # 监听选择条件的变化，并触发更新数据表
    # 以下示例使用一个输入框作为选择条件
    updated_data <- ...
    dt_data(updated_data)
  })
}