如何在Shiny App中最小化sidebarLayout？

如何解决如何在Shiny App中最小化sidebarLayout？

我正在构建一个闪亮的应用程序，并且正在使用两个sidebarLayouts。我正在寻找一种最小化它们的方法。我尝试将每个sidebarLayout放到一个盒子中，示例代码：

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),headerPanel("Here goes the heder"),Box(sidebarLayout(
          sidebarPanel(textoutput("someinputs")),mainPanel(textoutput("someoutputs"))),width = 12,title = "BB",collapsible = T,collapsed = F
    
  )
)

server <- function(input,output) {
  
  output$someinputs <- renderText({
    "Here will go the inputs"
  })
  
  output$someoutputs <- renderText({
    "Here will go the outputs"
  })
  
  }

shinyApp(ui,server)

并获得此信息：

当我按下可折叠按钮时，布局不会折叠。为什么会这样呢？我该怎么办？还有其他方法吗？

解决方法

因为您没有使用shinydashboard。该包装盒来自shinydashboard包装。您需要使用shinydashboard::dashboardPage而不是fluidPage。 dashboardPage加载所需的JavaScript和CSS文件以切换按钮。

library(shiny)
ui <- shinydashboard::dashboardPage(
    shinydashboard::dashboardHeader(),shinydashboard::dashboardSidebar(),shinydashboard::dashboardBody(
        headerPanel("Here goes the heder"),shinydashboard::box(
            width = 12,title = "BB",collapsible = TRUE,collapsed = FALSE,sidebarLayout(
                sidebarPanel(textOutput("someinputs")),mainPanel(textOutput("someoutputs")))
        ) 
    )
)

如果您不想使用dashboardPage，则可以编写自己的脚本来控制按钮：

library(magrittr)
library(shiny)
ui <- fluidPage(
    headerPanel("Here goes the heder"),shinydashboard::box(
        width = 12,sidebarLayout(
            sidebarPanel(textOutput("someinputs")),mainPanel(textOutput("someoutputs")))
    )%>% {.$attribs[['id']] <- 'example-box'; .},tags$head(tags$script(
        "$(document).ready(function(){
          $('#example-box button').attr({
            'data-toggle':'collapse','data-target':'#example-box .box-body','aria-expanded':false
          })
        })"
    ))
)

我使用了一种技巧为%>% {.$attribs[['id']] <- 'example-box'; .}框分配了ID，并使用了一些jquery来控制按钮。确保脚本中的ID与您在UI中分配的ID（在这种情况下为example-box）匹配。在javascript中，您添加了#用于ID搜索，因此#example-box。

我不建议您使用第二种方法。您可以在用户界面中看到，它实际上不是一个盒子。它没有边框，并且按钮不在正确的位置。如果使用dashboardPage，则可以看到区别。