library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(

  includeCSS(path = "AdminLTE.css"),#added 
  includeCSS(path = "shinydashboard.css"),#added

   # Application title
   titlePanel("Old Faithful Geyser Data"),# Sidebar with a slider input for number of bins 
   sidebarLayout(
      sidebarPanel(
         sliderInput("bins","Number of bins:",min = 1,max = 50,value = 30)
      ),# Show a plot of the generated distribution
      mainPanel(
         Box(plotOutput("distPlot"),solidHeader = T,collapsible = T,title = "collapsible Box not collapsing",status = "primary")
      )
   )
)

# Define server logic required to draw a histogram
server <- function(input,output) {

   output$distPlot <- renderPlot({
      # generate bins based on input$bins from ui.R
      x    <- faithful[,2] 
      bins <- seq(min(x),max(x),length.out = input$bins + 1)

      # draw the histogram with the specified number of bins
      hist(x,breaks = bins,col = 'darkgray',border = 'white')
   })
}

# Run the application 
shinyApp(ui = ui,server = server)

结果是

在上图中,单击mininize按钮时,可碰撞框不会折叠.

我在工作目录中添加了addtional AdminLTE.css和shinydashboard.css文件,但问题仍然存在.