包含 rmarkdown 后，shinydashboard 无法自动调整宽度答案

【问题标题】：shinydashboard cannot automatically adjust width after include rmarkdown包含 rmarkdown 后，shinydashboard 无法自动调整宽度
【发布时间】：2019-09-10 03:18:09
【问题描述】：

我正在尝试整合 Rmarkdown 文本和 shinydashboard 来创建一个网站。但是，我在 Shiny 应用程序中包含 Rmarkdown 文件后，网站的宽度无法自动调整到窗口的大小。下面列出了一个可重现的示例。 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)

生成的仪表板看起来不错，但是我更改了窗口的大小，仪表板的宽度是固定的，无法根据浏览器的宽度自动调整。

我想知道这个固定窗口是否有任何解决方案。非常感谢！

【问题讨论】：

标签： r-markdown shinydashboard

【解决方案1】：

将此添加到您的 Rmarkdown：

<style type="text/css">
           body {          
           max-width:100%;
           padding:0;
           }
</style>

【讨论】：