Shiny模块化开发中sumUI与sumSE模块内textOutput不显示问题求助

你的代码核心问题有2个：

• 模块UI和模块服务端的命名空间ID完全不匹配：你调用sumSE时用的id前缀是hist_，调用sumUI时用的id前缀是sum_，两者命名空间没有对应，导致服务端无法找到对应UI里的输出组件，自然没法渲染内容。
• 你定义的add_id响应式变量从来没有更新过，多次点击「Add New」按钮会生成重复ID，导致后续新增的模块也会失效。

library(shiny)
library(shinyjs)

sumUI <- function(id, df) {
  tagList(
    fluidRow(column(4, selectInput(NS(id, "var"), "Variable", choices = names(df())),
                    textOutput(NS(id, "test")))))
}


sumSE <- function(id, df) {
  moduleServer(id, function(input, output, session) {
    data <- reactive(df()[[input$var]])
     output$test <- renderPrint({
       data()
     })
  })
}

list_data <- tibble::lst(islands, iris, mtcars)

ui <- function(request){
  fluidPage(
    useShinyjs(),
    selectInput("select_data", "Select Data", choices = c(" ", names(list_data))),
    # 先禁用按钮，避免还没选数据集就点击新增导致报错
    actionButton("add", "Add New", disabled = TRUE),
    verbatimTextOutput("output_text"),
    div(id = "add_here")
  )
}

server <- function(input, output, session) {
  
  add_id <- reactiveVal(0)  
  
  df <- reactive(
    # 处理初始空值的情况
    req(input$select_data)
    get(input$select_data)
  )
  
  # 选了数据集之后才允许新增模块
  observe({
    toggleState("add", condition = input$select_data != " ")
  })
  
  output$output_text <- renderPrint({
    input$select_data
  })
  observeEvent(input$add, {
    # 每次点击更新计数，避免重复ID
    current_id <- add_id() + 1
    add_id(current_id)
    # 统一ID前缀
    module_id <- paste0("sum_", current_id)
    sumSE(id = module_id, df = df)
    insertUI(selector = "#add_here", ui = sumUI(id = module_id, df = df))
  })
}

shinyApp(ui, server)

• 新增了req(input$select_data)避免初始状态下没有选数据集时，df()报错的问题
• 加了按钮状态控制，未选择数据集时「Add New」按钮禁用，减少无效操作报错
• 统一了模块ID的生成逻辑，每次点击计数自增，不会出现重复ID

内容的提问来源于stack exchange，提问作者writer_typer