如何通过 r shiny 中的 textInput() 将 url 传递给 iframe？答案

【问题标题】：How can you pass a url to an iframe via textInput() in r shiny?如何通过 r shiny 中的 textInput() 将 url 传递给 iframe？
【发布时间】：2018-02-03 18:38:35
【问题描述】：

我需要嵌入一个通过用户输入的 url 访问的网页。我找到了这个脚本，但我不能让 iframe 依赖于包含 url 的 textInput()。

embed iframe inside shiny app

谢谢

【问题讨论】：

标签： r iframe shiny

【解决方案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)

【讨论】：

我得到一个白色的 iframe。我认为它很慢，所以我等了，但没有任何反应。如果我输入“www.google.com”，我会收到错误消息。而是使用“google.com”获得一个空白
其他网站也可以，但 Google 似乎不允许这样做。