如何在Shiny的新标签页中显示按钮触发生成的绘图？

以下是符合需求的Shiny代码，实现原标签页按钮触发新标签页诊断图更新，且新标签页无操作控件：

shinyApp(
  ui = fluidPage(
    tabsetPanel(
      # 原标签页：包含操作按钮和森林图（示例用cars散点图代替）
      tabPanel(
        title = "森林图",
        sidebarLayout(
          sidebarPanel(
            actionButton("generate_diagnostic", "生成诊断图")
          ),
          mainPanel(
            plotOutput("forest_plot")
          )
        )
      ),
      # 新标签页：仅显示诊断图，无操作按钮
      tabPanel(
        title = "诊断图",
        mainPanel(
          plotOutput("diagnostic_plot")
        )
      )
    )
  ),
  server = function(input, output) {
    # 响应按钮点击，生成诊断图所需的响应式数据
    diagnostic_plot_data <- eventReactive(input$generate_diagnostic, {
      # 模拟meta分析诊断图数据（可替换为真实数据集处理逻辑）
      cars + rnorm(nrow(cars))
    })
    
    # 原标签页的森林图（示例用散点图，实际替换为你的森林图代码）
    output$forest_plot <- renderPlot({
      # 这里保留你原有的森林图生成逻辑，示例用cars数据演示
      plot(cars, main = "森林图（示例）")
    })
    
    # 新标签页的诊断图，依赖响应式数据实现同步更新
    output$diagnostic_plot <- renderPlot({
      data <- diagnostic_plot_data()
      # 示例用直方图作为诊断图，实际替换为你的meta分析诊断图逻辑（如漏斗图等）
      hist(data$speed, main = "诊断图：速度分布直方图", xlab = "速度")
    })
  }
)

关键逻辑说明 #

• 标签页布局：用tabsetPanel拆分两个功能标签页，原标签页保留操作按钮和森林图展示，新标签页仅放置诊断图输出控件
• 响应式触发：通过eventReactive监听原标签页的按钮点击事件，每次点击生成新的诊断图数据/计算结果
• 同步更新：新标签页的renderPlot依赖上述响应式数据，按钮点击后自动触发诊断图重新渲染，实现同步更新
• 界面简洁性：新标签页仅包含绘图输出，不添加任何操作按钮，符合需求

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