R Shiny自定义模块中图表内容不随下拉框更新的问题排查

1. 错误核心：未传递响应式对象给模块 #

主应用调用chartServer时，直接传递了data()$year这类响应式对象的当前值，而非响应式对象本身。这会导致模块仅在启动时获取一次数据，后续data()更新时，模块无法感知到变化。同时，模块内的df响应式依赖的是静态的x和y值，而非响应式依赖，因此不会触发重计算。

2. 具体修复步骤 #

修复主应用（app.R） #

将传递给模块的参数改为响应式对象本身，而非提取出的字段：

library(shiny)
library(gapminder)
library(dplyr)
source("mod-chart.R")
# source("mod-table.R")  # 未用到可暂时注释

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "continent", label = "Continent:", choices = unique(gapminder$continent), selected = "Europe")
    ),
    mainPanel(
      chartUI(id = "chart-bar"),
      chartUI(id = "chart-line")
    )
  )
)

server <- function(input, output, session) {
  # Filter the dataset first
  data <- reactive({
    gapminder %>%
      filter(continent == input$continent) %>%
      group_by(year) %>%
      summarise(
        avg_life_exp = round(mean(lifeExp), digits = 0),
        avg_gdp_percap = round(mean(gdpPercap), digits = 2)
      )
  })

  # Bar chart
  chartServer(
    id = "chart-bar",
    type = "bar",
    data = data(),
    x_col = "year",
    y_col = "avg_life_exp",
    title = "Average life expectancy over time"
  )

  # Line chart
  chartServer(
    id = "chart-line",
    type = "line",
    data = data(),
    x_col = "year",
    y_col = "avg_gdp_percap",
    title = "Average GDP per capita over time"
  )
}

shinyApp(ui = ui, server = server)

修复模块代码（mod-chart.R） #

修改模块服务器函数，接收响应式数据集，并在内部处理字段提取，同时确保图表渲染依赖响应式数据：

library(shiny)
library(ggplot2)

chartUI <- function(id) {
  ns <- NS(id)
  fluidRow(
    plotOutput(outputId = ns("chart"))
  )
}

chartServer <- function(id, type, data, x_col, y_col, title) {
  moduleServer(
    id = id,
    module = function(input, output, session) {
      # 基于传入的响应式数据和字段名，创建绘图用的响应式数据框
      df_plot <- reactive({
        req(data)  # 确保数据存在才继续
        data.frame(
          x = data[[x_col]],
          y = data[[y_col]]
        )
      })

      # 统一在renderPlot内处理图表类型判断，确保依赖响应式数据
      output$chart <- renderPlot({
        req(df_plot())
        p <- ggplot(df_plot(), aes(x = x, y = y)) +
          labs(title = title, x = x_col, y = y_col)
        
        if (type == "line") {
          p + geom_line(size = 2) + geom_point(size = 5)
        } else {
          p + geom_col()
        }
      })
    }
  )
}

3. 额外优化说明 #

• 使用req(data)确保数据加载完成后再执行后续逻辑，避免空值报错。
• 将图表类型判断移至renderPlot内部，符合响应式编程逻辑，代码更紧凑。
• 为图表添加坐标轴和标题标签，提升可读性。

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