使用Shinydashboard无法正确显示PDF

Question

我想将pdf文件嵌入Shinydashboard，当只有一个选项卡时，它会按预期显示，或者我只是使用Shiny而不使用仪表板。当我有两个标签时，尽管我可以单击屏幕上的按钮来调整其大小，但PDF将在第二个标签下显示为细条（see the screenshot）。有人可以帮忙找出问题所在吗？这仅在Chrome中发生，但在Edge或IE中可以正常运行。提前致谢！

示例代码：

dashboardPage(      
  dashboardHeader(title = "Test"),

  ui<-dashboardSidebar(
    sidebarMenu(
      menuItem("Model", tabName = "model"),
      menuItem("Instruction", tabName = "inst"),
      id = "tabm"
    )
  ),

  dashboardBody(
    tabItems(
      tabItem(tabName = "model",
              h2("first tab content"),
              tags$iframe(style="height:650px; width:100%; scrolling=yes",
                          src="shinyTexManual.pdf")
      ),
      tabItem(
        tabName = "inst",
        fluidPage(
          sliderInput("slider", "Slider", 1, 100, 50),
          tags$iframe(style="height:650px; width:100%; scrolling=yes",
                      src="shinyTexManual.pdf")
        )
      )
    )
  )
)
server <- function(input, output) { }