R Shiny中switch结合checkboxInput切换绘图无效问题求解

原代码有两处核心错误导致效果不符合预期：

• 复选框取值方式错误：代码中"checkbox" == FALSE是拿固定字符串"checkbox"和逻辑值FALSE做比较，这个判断永远不成立，完全没有读取Shiny输入对象里的复选框状态input$checkbox。
• switch函数语法错误：switch的分支必须是选项名 = 执行表达式的格式，不能直接把if/else代码块塞到switch的参数列表里当分支，会导致分支匹配逻辑混乱。

把if判断放到switch对应选项的分支内部即可，不需要修改原有selectInput匹配逻辑：

library(shiny)

mytest <- c("first","second")
# 定义UI
ui <- fluidPage(
  titlePanel("Old Faithful Geyser Data"),
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "test",
                  label = "Test",
                  choices = mytest,
                  selected = "first"),
      checkboxInput("checkbox","check this box",FALSE)
    ),
    mainPanel(
      plotOutput("distPlot")
    )
  )
)

server <- function(input, output) {
  output$distPlot <- renderPlot({
    switch(input$test,
           # 选first时固定展示默认图形
           "first" = plot(rnorm(100)),
           # 选second时再根据复选框状态展示差异化图形
           "second" = {
             if(!input$checkbox){
               # 未勾选时展示蓝色1000随机数图形
               plot(rnorm(1000),col="blue")
             } else{
               # 勾选后展示红色10000随机数图形
               plot(rnorm(10000),col='red')   
             }
           }
    )
  })
}

shinyApp(ui = ui, server = server)

• 下拉框选择first：始终展示100个随机数的默认黑色点图，不受复选框状态影响
• 下拉框选择second：未勾选复选框时展示1000个随机数的蓝色点图，勾选复选框后自动切换为10000个随机数的红色点图，完全匹配预期需求。

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