Shiny开发：切换input$type后如何让output$plot消失？

要实现切换input$type后让图表消失、仅点击「go」按钮才重新生成的效果，可通过以下两种方式实现：

方法一：用响应式变量控制显示状态 #

新增一个响应式变量show_plot，切换下拉框时将其设为FALSE隐藏图表，点击按钮时设为TRUE允许绘制，核心逻辑是用这个变量控制renderPlot的输出：

library(shiny)
ui <- fluidPage(
  selectInput("type", "type", c("Normal", "Uniform")),
  actionButton("go", "go"),
  plotOutput("plot")
)

server <- function(input, output, session) {
  # 控制图表显示状态的响应式变量
  show_plot <- reactiveVal(FALSE)
  
  # 切换类型时自动隐藏图表
  observeEvent(input$type, {
    show_plot(FALSE)
  })
  
  r <- reactive({
    if(input$type == "Normal"){
      rnorm(100)
    } else if (input$type == "Uniform"){
      runif(100)
    }
  }) |> 
    bindEvent(input$go)
  
  output$plot <- renderPlot({
    # 仅当show_plot为TRUE时才绘制图表，否则返回空内容（图表消失）
    req(show_plot())
    hist(r(), main = input$type, xlab = "x")
  })
  
  # 点击按钮时允许显示图表
  observeEvent(input$go, {
    show_plot(TRUE)
  })
}

shinyApp(ui, server)

方法二：绑定多重依赖控制渲染 #

让renderPlot同时依赖input$type和input$go，只有点击go按钮后才触发绘制，切换类型时因未触发点击动作，图表会自动清空：

library(shiny)
ui <- fluidPage(
  selectInput("type", "type", c("Normal", "Uniform")),
  actionButton("go", "go"),
  plotOutput("plot")
)

server <- function(input, output, session) {
  # 组合点击动作和当前类型，作为渲染触发条件
  plot_trigger <- reactive({
    list(click_count = input$go, current_type = input$type)
  })
  
  r <- reactive({
    if(plot_trigger()$current_type == "Normal"){
      rnorm(100)
    } else if (plot_trigger()$current_type == "Uniform"){
      runif(100)
    }
  }) |> 
    bindEvent(plot_trigger())
  
  output$plot <- renderPlot({
    # 确保只有点击过按钮才绘制图表
    req(input$go > 0)
    hist(r(), main = plot_trigger()$current_type, xlab = "x")
  }) |> 
    bindEvent(plot_trigger())
}

shinyApp(ui, server)

两种方法的核心逻辑一致：让图表的渲染严格绑定「点击go按钮」的动作，切换下拉框时切断该绑定，使图表因无有效触发条件而消失。

内容的提问来源于stack exchange，提问作者its.me.adam