Question

我试图将URL连接到左侧sidebarMenu中的menuSubItem，因此，如果单击该项目，它将在右侧空白页中显示网页。我尝试过tags$iframe或只是将a(href="")放在UI中，但都失败了。下面是我在UI中的示例代码。

```
sidebar<- dashboardSidebar(
sidebarMenu(id = "tabs",
          menuItem("Homepage", tabName = "homepage", icon = icon("home")),
          menuItem("Liability Distribution", tabName = "liab_dist",
                   menuSubItem("Google", tabName = "Google", icon = icon("angle-right")))))

body<-dashboardBody(
  tabItems(
    #Google
    tabItem(tabName = "Google", 
            fluidRow(
              tags$iframe(
                seamless = "seamless",
                src = "http://google.com",
                height = 800, width = 1400)))))

Answer 1

您的代码没有错-处理iframe时只有两个警告：1.）RStudio不会加载外部资源-猜想这是出于安全性。但是，一旦运行闪亮的应用程序，就会得到如下输出：Listening on http://127.0.0.1:7572。将http:...粘贴到Chrome（或Firefox或您喜欢的浏览器）的新标签中后，您将在大多数情况下获得一些内容。。 Google是2的一个例外（还有很多），这是一个例外。）一些网站告诉浏览器不要在iframe中显示它们（当您使用在Chrome中打开的devtools进入google.com时（或者再次是：Firefox或您喜欢的），您会看到x-frame-options: SAMEORIGIN作为响应标题。因此，您很不走运-但我建议您尝试使用您的个人博客或您知道允许使用iFrame的某些页面。 RStudio的Shiny预览，您很可能会得到结果。

如何在闪亮的应用程序中显示外部网站？

1 个答案: