有没有办法在带有闪亮R的textInput中放置一个超链接

library(shiny)

ui <- fluidPage(
  fluidRow(
    column(6, 
           shiny::textInput("myInput", "输入文本：")
    ),
    column(6,
           shiny::htmlOutput("myLink")
    )
  )
)

server <- function(input, output) {
  output$myLink <- shiny::renderText({
    text <- input$myInput
    link <- "https://www.example.com"  # 设置超链接的URL地址
    paste0("你输入的文本是：", text, "<br>",
           "点击这里查看超链接：", "<a href='", link, "'>", link, "</a>")
  })
}

shinyApp(ui, server)