使用observe()和renderUI()时Shiny条件输入未随条件消失的问题

问题原因 #

你的代码仅在input$input1 == "B"时为output$input2赋值，切换回"A"时未更新output$input2，导致之前渲染的Input2会一直保留在界面上。

修改方案1：补充else分支清空输出 #

在observe的if语句中添加else分支，将output$input2设为NULL，条件不满足时自动清空对应UI输出：

library(shiny)

ui <- fluidPage(
  titlePanel("Conditional input"),
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "input1",
                  label = "Input1",
                  choices = c("A","B"),
                  selected = "A"),
      uiOutput(outputId = "input2")
    ),
    mainPanel()
  )
)

server <- function(input, output){
  observe({
    if(input$input1 == "B"){
      output$input2 <- renderUI({
        selectInput(inputId = "input2",
                    label = "Input2",
                    choices = c("option1", "option2"))
      })
    } else {
      # 条件不满足时清空输出
      output$input2 <- renderUI(NULL)
    }
  })
}

shinyApp(ui = ui, server = server)

修改方案2：直接在renderUI中做条件判断（更简洁） #

无需用observe包裹，直接在renderUI内部判断条件，满足时渲染输入框，否则返回NULL：

library(shiny)

ui <- fluidPage(
  titlePanel("Conditional input"),
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "input1",
                  label = "Input1",
                  choices = c("A","B"),
                  selected = "A"),
      uiOutput(outputId = "input2")
    ),
    mainPanel()
  )
)

server <- function(input, output){
  output$input2 <- renderUI({
    if(input$input1 == "B"){
      selectInput(inputId = "input2",
                  label = "Input2",
                  choices = c("option1", "option2"))
    } else {
      NULL
    }
  })
}

shinyApp(ui = ui, server = server)

说明 #

两种方法均可实现：当input1选"B"时显示Input2，切回"A"时Input2自动消失。方案2更贴合Shiny响应式编程逻辑，无需额外监听，renderUI会自动响应input$input1的变化。

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