如何在Shiny中动态呈现HTML链接？

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      textInput("url", "输入链接地址："),
      actionButton("display", "显示链接")
    ),
    mainPanel(
      uiOutput("linkOutput")
    )
  )
)

server <- function(input, output) {
  observeEvent(input$display, {
    link <- input$url
    
    output$linkOutput <- renderUI({
      if (!is.null(link) && link != "") {
        tags$a(href = link, target="_blank", link)
      } else {
        NULL
      }
    })
  })
}

shinyApp(ui, server)