Créer des URL du lien hypertexte dans la R Brillant?

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

Courant de sortie:

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

De sortie souhaité:

URL link: Google Homepage

où Google Homepage est un lien hypertexte cliquable.

Je suis actuellement en utilisant le renderUI/uiOutput duo comme indiqué ici: comment créer un lien hypertexte de manière interactive dans la brillante application?

OriginalL'auteur warship | 2017-02-05

  1. 17

    En utilisant paste, vous êtes le traitement de la url comme une chaîne de caractères. 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)
    })
  })
)
    Pouvez vous s'il vous plaît jeter un oeil à ce lien stackoverflow.com/questions/46004959/...

    OriginalL'auteur DeanAttali