我正在尝试在Shiny中显示一个包含网站的iframe,但它总是显示空白页面。
以下是从另一个问题中提取的代码:
代码:
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面板。