如何在Shiny的textAreaInput中实现粘贴URL自动渲染为可点击链接

你只需要修改两处核心逻辑即可实现需求：替换纯文本输出组件为HTML输出组件、在服务端添加URL识别并转超链接的处理逻辑，完整改造后的代码如下：

library(shiny)
ui <- fluidPage(
  textAreaInput("caption", "Caption", "Data Summary", width = "1000px"),
  # 替换原纯文本输出为支持HTML解析的输出组件
  htmlOutput("value")
)
server <- function(input, output) {
  output$value <- renderUI({
    raw_text <- input$caption
    # 正则匹配所有http/https开头的链接，替换为可点击的超链接标签
    linked_text <- gsub(
      pattern = "(https?://\\S+)",
      replacement = '<a href="\\1" target="_blank">\\1</a>',
      x = raw_text
    )
    # 将处理后的文本转为HTML元素渲染
    HTML(linked_text)
  })
}
shinyApp(ui, server)

关键逻辑说明 #

• 输出组件替换：原verbatimTextOutput仅支持纯文本渲染，替换为htmlOutput后可解析HTML标签，实现可点击超链接效果。
• URL识别规则：使用正则匹配所有http/https开头的连续非空字符作为链接，替换的a标签添加了target="_blank"属性，点击链接会在新标签页打开，不会覆盖当前Shiny应用。
• 渲染方法替换：原renderText仅输出纯文本，替换为renderUI可将处理后的HTML字符串渲染为有效页面元素。

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