5
我正在构建一个闪亮的应用程序,我希望以交互方式创建超链接。 我知道如何通过使用()添加链接到ui.r,但我怎样才能让我的闪亮应用程序交互地改变该链接?如何在闪亮的应用程序中交互创建超链接?
有没有人有关于如何做到这一点的想法?
我正在构建一个闪亮的应用程序,我希望以交互方式创建超链接。 我知道如何通过使用()添加链接到ui.r,但我怎样才能让我的闪亮应用程序交互地改变该链接?如何在闪亮的应用程序中交互创建超链接?
有没有人有关于如何做到这一点的想法?
您可以使用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)
})
})
)