在shinydashboard框中放置markdown可压缩页面

install.packages("shinydashboard")
install.packages("markdown")

library(shiny)
library(shinydashboard)
library(markdown)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      box(
        width = 12,
        height = "500px",
        title = "Markdown可压缩页面",
        collapsible = TRUE,
        collapsed = TRUE,
        tags$div(
          class = "box-body",
          includeMarkdown("path/to/markdown_file.md")
        )
      )
    )
  )
)

server <- function(input, output) {
  
}

shinyApp(ui, server)