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

Question

我正在构建一个闪亮的应用程序，我想以交互方式创建超链接。 我知道如何使用（）添加到ui.r的链接，但是如何让我的闪亮应用程序以交互方式更改该链接？

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

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