Puis-je intégrer un iframe, dépendant d'une URL de textinput, dans un ShinyApp?

Question

J'ai besoin d'un de mes onglets d'applications pour afficher un site Web basé sur une entrée d'URL par l'utilisateur. J'ai trouvé ce script mais je ne peux pas faire dépendre l'iframe d'un textInput() contenant une URL.

embed iframe inside shiny app

Merci

Answer 1

Vous pouvez faire comme ceci:

library(shiny) 
ui <- fluidPage(titlePanel("Getting Iframe"), 
       sidebarLayout(
        sidebarPanel(
        textInput("url", label = "Enter url"), 
        actionButton("go", "Go") 
       ), 
        mainPanel(
        htmlOutput("frame") 
       ) 
       )) 

server <- function(input, output) { 
    output$frame <- renderUI({ 
    validate(need(input$go, message=FALSE)) 
    tags$iframe(src=isolate(input$url), height=600, width=535) 
    }) 
} 

shinyApp(ui, server)