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