come creare un collegamento ipertestuale in modo interattivo nell'app lucida?

Question

Sto costruendo un'app lucida in cui voglio creare collegamenti ipertestuali in modo interattivo. So come aggiungere un collegamento a ui.r utilizzando un(), ma come faccio a consentire alla mia app brillante di cambiare quel collegamento in modo interattivo?

Qualcuno ha un'idea su come farlo?

Answer 1

È possibile utilizzare renderUI per rendere dinamicamente 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) 
    }) 
    }) 
)