我正在尝试显示一个带有闪亮网站的 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)
Run Code Online (Sandbox Code Playgroud)
输出:
为什么我无法显示任何网站。请帮助我,我谷歌了很多并尝试了很多选项,包括 renderUI;htmloutput 和 uioutput 面板。