如何用Shiny的insertUI和removeUI实现下拉选值动态展示？

以下是实现需求的完整代码：

library(shiny)

ui <- fluidPage(
  selectInput(
    inputId = "test",
    label = "Test",
    choices = c("Test1", "Test2", "Test3"),
    selected = NULL
  ),
  # 预留用于插入内容的固定容器
  div(id = "text_container")
)

server <- function(input, output, session) {
  observeEvent(input$test, {
    req(input$test)
    
    # 移除容器内已有的所有子元素
    removeUI(selector = "#text_container > *")
    
    # 插入新选中的值作为文本元素
    insertUI(
      selector = "#text_container",
      where = "afterBegin",
      ui = p(input$test)
    )
  })
}

shinyApp(ui, server)

核心实现说明 #

• 先在UI中定义一个带ID的div容器，作为插入和移除元素的固定目标，避免破坏页面结构
• 通过observeEvent监听下拉框的选择变化，每次选择触发时执行两步操作：
  1. 用removeUI精准清除容器内的所有已有内容（#text_container > *只匹配容器的直接子元素，不会删除容器本身）
  2. 用insertUI将选中的值以文本元素（示例用<p>标签，可替换为span或其他标签）插入到容器中
• req(input$test)用于过滤下拉框未选择的空值情况，避免无效操作

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