如何使用insertUIs在Shining应用程序中将文本输入转换为输出

我有一个闪亮的小应用程序，可以使用insertUI随机排列演讲者名单（以防有更多演讲者）

问题是，我只使用textInput让它工作，而没有输入框我无法完成它-只是在没有输入框的情况下显示文本。 这更像是一件美学的事情，但经过几个小时不成功的试验后，我在这里寻求帮助

我真的很感谢你的帮助。
赫鲁尼亚

代码如下：

if (interactive()) {
       
  ui <- fluidPage(      
    actionButton("add", "Next speaker")
         )
  
  # Server logic
  server <- function(input, output, session) {
    a <- sample(c("Speaker 1","Speaker 2","Speaker 3","Speaker 4","Speaker 5"))
    uiCount = reactiveVal(0)
    observeEvent(input$add, {
      
      uiCount(uiCount()+1)
      insertUI(
        selector = "#add",
        where = "afterEnd",
        ui = textInput(paste0("txt", input$add), paste0("Speaker #", uiCount() , ": "),
                       placeholder = a[uiCount()] ), 
      )
    })
  }
  shinyApp(ui, server)
}

if（交互式（））{
ui这更接近你想要的吗

ui <- fluidPage(
  actionButton("add", "Next speaker"),
  uiOutput("txt")
)

server <-  function(input, output, session) {
  a <- sample(c("Speaker 1","Speaker 2","Speaker 3","Speaker 4","Speaker 5"))
  uiCount = reactiveVal(0)
  
  observeEvent(input$add, {
    uiCount(uiCount()+1)
    
    output$txt <- renderUI({
      div(
        p(
          paste0("Speaker #", uiCount(), " :", a[uiCount()])
        ) #close p
      ) #close div
    })
  })
}
shinyApp(ui, server)

ui您是否尝试过
？textOutput
？我尝试过，但无法让它工作…是的，这太棒了-非常感谢您的帮助！谢谢，欢迎接受答案！