通过Shiny iframe嵌入网站的示例

Question

我正在尝试使用Shiny iframe嵌入网站，但是这些网站都无法正确显示。

无论给出什么网站链接，它都会显示空白图像。

代码取自：Shiny Iframe not showing any website

library(shiny)
members <- data.frame(name=c("Name 1", "Name 2"), nr=c('BCRA1','FITM2'))

ui <- fluidPage(titlePanel("Getting Iframe"), 

                mainPanel(fluidRow(
                  htmlOutput("my_test")
                )
                )
)

server <- function(input, output) {
  output$my_test <- renderUI({
    tags$iframe(src='http://www.allwebco-templates.com/support/S_script_IFrame.htm', height=600, width=535)
  })
}

shinyApp(ui, server)