Shinydashboard не может автоматически регулировать ширину после включения rmarkdown - PullRequest
Новая
       20

Shinydashboard не может автоматически регулировать ширину после включения rmarkdown

0 голосов
/ 11 ноября 2018

Я пытаюсь объединить текст Rmarkdown и shinydashboard для создания веб-сайта. Однако после того, как я включил файл Rmarkdown в приложение Shiny, ширина сайта не может автоматически подстраиваться под размер окна. Воспроизводимый пример приведен ниже. exampleMD.rmd - это просто шаблон Rmarkdown. 

body <- dashboardBody(
      fluidRow(
        column(width = 5, box("Box content", width = NULL)),
        column(width = 7, uiOutput('markdown'))
      )
    )

ui <- dashboardPage(
  dashboardHeader(title = "Include Rmarkdown"),
  dashboardSidebar(),
  body
)

server <- function(input, output) { 
  output$markdown <- renderUI({
  HTML(markdown::markdownToHTML(knit('exampleMD.rmd', quiet = TRUE)))
  })
}

shinyApp(ui = ui, server = server)

Rendered Shinydashboard

Полученная панель мониторинга выглядит нормально, но, хотя я изменяю размер окна, ширина панели управления фиксируется и не может автоматически настраиваться в соответствии с шириной браузера.

Интересно, есть ли какие-нибудь решения для этого фиксированного окна? Большое спасибо!

...