我可以在ShinyApp中嵌入依赖于textinput网址的iframe吗？

Question

我需要我的某个应用标签根据用户输入的网址显示网站。 我找到了这个脚本，但我不能让iframe依赖于包含url的textInput（）。

embed iframe inside shiny app

谢谢

Answer 1

你可以这样做：

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)