Créer un lien hypertexte URL dans R Shiny?

Question

Mon code:

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

Sortie courant:

URL link: <a href="https://www.google.com/">Google Homepage</a>

Sortie désirée:

URL link: Google Homepage

où Google Homepage est un hyperlien cliquable.

J'utilise actuellement le duo renderUI/uiOutput comme indiqué ici: comment créer un lien hypertexte de manière interactive dans une application brillante?

Answer 1

En utilisant paste, vous traitez le url comme une chaîne. La fonction que vous souhaitez utiliser ici est 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)
    })
  })
)