在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/ uiOutputduo:如何在闪亮的应用程序中以交互方式创建超链接？

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)
    })
  })
)

Answer 2

您可以使用任何想要标记的html 标记

    tags$a(href="www.rstudio.com", "Click here!")
## <a href="www.rstudio.com">Click here!</a>