可折叠框在闪亮应用

Question

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按钮被点击时的collpasible框不获取折叠。

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

Answer 1

如果您没有使用shinydashboard的限制，只需创建一个没有标题和边栏的仪表板页面即可。它将启用shinydashboard的所有功能，它将看起来像一个基本的闪亮应用程序。在单击最小化/最大化按钮时，在框下方的代码折叠/取消折叠。

library(shiny) 
library(shinydashboard) 

ui <- dashboardPage(
    dashboardHeader(disable = TRUE), 
    dashboardSidebar(disable = TRUE), 
    dashboardBody(
    # 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) 

Answer 2

仅在光泽内使用折叠盒。我们需要添加所需的JavaScript。在添加css之后，我们还添加了this文件。

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

    #add this file and collapsible nature should work. 
    includeScript(path = "app.js"), #