Shiny模块嵌套开发：在外层模块中嵌入绘图子模块的实现咨询

原有代码的核心问题是模块命名空间绑定错误、UI与Server调用逻辑混淆，以下是修正后的可运行代码：

library(shiny)
library(tidyverse)
library(palmerpenguins)

# 绘图模块UI
graph_ui <- function(id) {
  ns <- NS(id)
  plotOutput(ns("graph"))
}

# 外层容器模块UI
outer_ui <- function(id) {
  ns <- NS(id)
  tagList(
    "some text - would contain other objects too, not just graphs",
    # 直接在内层调用绘图模块UI，使用外层模块命名空间包装ID
    graph_ui(ns("inner1")),
    graph_ui(ns("inner2"))
  )
}

# 绘图模块Server
graph_server <- function(id, xcat, ycat) {
  moduleServer(id, function(input, output, session) {
    output$graph <- renderPlot({
      ggplot(penguins, aes(.data[[xcat]], .data[[ycat]], col = sex)) +
        geom_point()
    })
  })
}

# 外层容器模块Server
outer_server <- function(id, plot1_x, plot1_y, plot2_x, plot2_y) {
  moduleServer(id, function(input, output, session) {
    # 在外层Server的命名空间下调用绘图模块Server，ID与UI声明对应
    graph_server("inner1", xcat = plot1_x, ycat = plot1_y)
    graph_server("inner2", xcat = plot2_x, ycat = plot2_y)
  })
}

# 主应用
ui <- fluidPage(
  outer_ui("mod1")
)

server <- function(input, output, session) {
  # 仅需调用外层模块Server，传入绘图所需参数即可
  outer_server("mod1",
               plot1_x = "bill_length_mm", plot1_y = "bill_depth_mm",
               plot2_x = "flipper_length_mm", plot2_y = "bill_depth_mm")
}
shinyApp(ui, server)

关键修正说明 #

• 所有内层模块的UI声明必须使用外层模块的ns()方法包装ID，确保命名空间统一
• 内层模块的Server调用必须在外层模块的Server作用域内执行，无需在顶层Server重复声明
• 无需使用renderUI动态生成固定结构的绘图输出，直接调用对应模块UI即可

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