2016-11-14 92 views
4
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) 

這一結果是可摺疊框在閃亮應用

enter image description here

在上述圖像上mininize按鈕被點擊時的collpasible框不獲取摺疊。

我在工作目錄中添加了addtional AdminLTE.cssshinydashboard.css文件,但問題仍然存在。

+1

shinyBS軟件包可以幫助您:https://ebailey78.github.io/shinyBS/docs/Collapses.html – user5029763

回答

0

如果您沒有使用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) 
0

僅在光澤內使用摺疊盒。我們需要添加所需的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"), #