闪亮的Iframe不显示任何网站

我试图显示一个iframe和一个闪亮的网站,但它总是显示空白页面。

以下代码取自 different question

代码:

 rm(list = ls())
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='https://www.google.co.in/', height=600, width=535)
  })
}

shinyApp(ui, server)

输出: 为什么我不能显示任何网站。请帮帮我,我搜索了很多,尝试了很多选择,包括renderUI;htmloutput和uioutput面板。