r - 在 R Shiny 中创建 URL 超链接？

Question

我的代码:

library(shiny)
runApp(
  list(ui = fluidPage(
     uiOutput("tab")
    ),
  server = function(input, output, session){
    url <- a("Google Homepage", href="https://www.google.com/")
    output$tab <- renderUI({
      paste("URL link:", url)
    })
  })
)

电流输出:
URL link: <a href="https://www.google.com/">Google Homepage</a>
期望的输出:
URL link: Google Homepage
哪里 Google Homepage是一个可点击的超链接。

我目前正在使用 renderUI/ uiOutput按照此处的指示二人组: how to create a hyperlink interactively in shiny app?

Answer 1

通过使用 paste ，您正在治疗 url作为字符串。这里要使用的函数是tagList :

runApp(
  list(ui = fluidPage(
     uiOutput("tab")
    ),
  server = function(input, output, session){
    url <- a("Google Homepage", href="https://www.google.com/")
    output$tab <- renderUI({
      tagList("URL link:", url)
    })
  })
)