r - 如何在 Shiny 的应用程序中以交互方式创建超链接？

Question

我正在构建一个 Shiny 的应用程序，我想在其中以交互方式创建超链接。
我知道如何使用 a() 添加指向 ui.r 的链接，但是如何让 Shiny 的应用程序以交互方式更改该链接？

有没有人知道如何做到这一点？

Answer 1

您可以使用 renderUI动态呈现 HTML:

library(shiny)
runApp(
  list(ui = fluidPage(
    selectInput('website', 'Choose a website'
                , list(bbc = "http://www.bbc.co.uk"
                       , google = "http://www.google.com"
                       , cnn = "http://www.cnn.com")
    )
                , htmlOutput("mySite")
    )
  ,server = function(input, output, session){
    output$mySite <- renderUI({
      tags$a(href = input$website, input$website)
    })
  })
)