如何在r中通过textInput（）将url传递给iframe？

我需要嵌入通过用户输入的url访问的网页。 我找到了这个脚本，但无法使iframe依赖于包含url的textInput（）

谢谢你

你可以这样做：

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)

库（闪亮）
我得到一个白色的iframe。我觉得很慢，所以我等了一会儿，但什么也没发生。如果我输入“www.google.com”，我会得到一个错误。取而代之的是在“其他网站”工作时获得一个空白，但谷歌似乎不允许这样做。