PDF не отображается должным образом с помощью Shinydashboard - PullRequest
Новая
       9

PDF не отображается должным образом с помощью Shinydashboard

0 голосов
/ 03 октября 2018

Я хотел встроить PDF-файл в Shinydashboard, и он отображается, как и ожидалось, когда есть только одна вкладка, или я просто использую блестящий без использования панели инструментов.Когда у меня есть две вкладки, PDF будет отображаться в виде тонкой полосы ( см. Скриншот ) под второй вкладкой, хотя я могу нажать кнопку на экране, чтобы настроить его размер.Может кто-нибудь помочь разобраться, что идет не так?Это происходит только в 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) { }
...