如何在Shiny中基于select输入调用不同的模块？

library(shiny)

ui <- fluidPage(
  selectInput("module", "选择模块", choices = c("模块A", "模块B")),
  uiOutput("moduleUI"),
  actionButton("runModule", "运行模块")
)

server <- function(input, output, session) {
  output$moduleUI <- renderUI({
    if (input$module == "模块A") {
      # 创建模块A的UI
      fluidRow(
        column(6, textInput("input1", "输入1")),
        column(6, textInput("input2", "输入2"))
      )
    } else if (input$module == "模块B") {
      # 创建模块B的UI
      fluidRow(
        column(6, numericInput("input3", "输入3", value = 0)),
        column(6, numericInput("input4", "输入4", value = 0))
      )
    }
  })
  
  observeEvent(input$runModule, {
    if (input$module == "模块A") {
      # 调用模块A的逻辑
      output$moduleOutput <- renderText({
        # 获取输入值并进行处理
        input1 <- input$input1
        input2 <- input$input2
        # 返回处理结果
        paste("模块A的输出：", input1, input2)
      })
    } else if (input$module == "模块B") {
      # 调用模块B的逻辑
      output$moduleOutput <- renderText({
        # 获取输入值并进行处理
        input3 <- input$input3
        input4 <- input$input4
        # 返回处理结果
        paste("模块B的输出：", input3 + input4)
      })
    }
  })
}

shinyApp(ui, server)