如何在Shiny的Text Output中拼接Text Input值与其他文本？

错误原因分析 #

你的报错代码核心问题有两个：

• verbatimTextOutput的参数必须是固定的输出ID字符串，不能在这里用paste拼接动态值——UI在应用启动时就会初始化，此时用户还未输入内容，domena变量也未定义，直接调用必然报错。
• 动态内容的拼接逻辑要放在server端的renderText函数里处理，而非UI组件的定义环节。

正确实现方式 #

基础实时拼接 #

如果需要实时响应用户输入，自动拼接固定文本与输入值，只需修改server端的渲染逻辑，UI保持输出ID为固定值：

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(  
    textInput("domena", "Podaj domenę"),
    actionButton("act_btn", "Pobierz dane dla domeny"),
    verbatimTextOutput("output_domena")  # 使用固定输出ID
  )
)

server <- function(input, output) {
  # 在renderText中完成文本拼接
  output$output_domena <- renderText({
    paste("AAA", input$domena)
  })
}

shinyApp(ui = ui, server = server)

点击按钮触发拼接 #

如果需要点击按钮后才生成拼接内容，可通过eventReactive监听按钮事件：

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(  
    textInput("domena", "Podaj domenę"),
    actionButton("act_btn", "Pobierz dane dla domeny"),
    verbatimTextOutput("output_domena")
  )
)

server <- function(input, output) {
  # 监听按钮点击，生成拼接内容
  combined_content <- eventReactive(input$act_btn, {
    # 用paste或者glue都可以，glue写法更直观
    # glue::glue("AAA {input$domena}")
    paste("AAA", input$domena)
  })
  
  output$output_domena <- renderText({
    combined_content()
  })
}

shinyApp(ui = ui, server = server)

关键注意事项 #

• 输出组件的ID必须是固定字符串，所有动态内容的处理都要放在server端的渲染函数中。
• 使用glue时需先安装并加载glue包，语法更贴近自然语言，适合复杂文本拼接场景。

内容的提问来源于stack exchange，提问作者Jan Jankowski Janek