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

Question

我正在尝试整合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)

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

我想知道对此固定窗口是否有解决方案。非常感谢！

Answer 1

将此添加到您的Rmarkdown：

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