Shiny 可折叠面板的固定位置

我正试图使这个闪亮的应用程序有一个固定在顶部的可折叠面板。但是，每当我固定位置时，折叠功能就不起作用

我要怎么做才能把这个可折叠的面板固定在顶部

library(shiny)
library(shinyWidgets)
library(shinyBS)
library(DT)


ui <- fluidPage(
  fluidRow(
    column(4),
    column(4,
      div(
        bsCollapse(id = "cntrlC1", open = "Panel 2",
          bsCollapsePanel("Control Panel", 
            htmlOutput("dateSelector", inline = TRUE),
            style = "info"
          )
        )
      )
    )
  ),
  fluidRow(
    DTOutput('sampleTbl')
  )
)
server <- function(input, output, session){
  output$dateSelector <- renderUI({
    airDatepickerInput(
      "dateSelector",
      label = "Select Start & End Dates",
      value = c("2020-01-01", "2020-01-10"),
      multiple = 2
    )
  })
  output$sampleTbl <- DT::renderDT(server = TRUE, {
    data <- data.frame(A = rep(1, 100), B = rep(2, 100), C = rep(3, 100))
    m <- datatable(
        data,
        options = list(pageLength = 100)
    )
    m 
  })
}
shinyApp(ui, server)

库（闪亮）
图书馆（shinyWidgets）
图书馆（shinyBS）
图书馆（DT）
ui也许你在找这个

ui <- fluidPage(
  fluidRow(
    column(4),
    column(4,
           div(
             bsCollapse(id = "cntrlC1", open = "Panel 2",
                        bsCollapsePanel("Control Panel", 
                                        htmlOutput("dateSelector", inline = TRUE),
                                        style = "info"
                        )
             ), style="position:fixed;"
           )
  )
  ),
  fluidRow(
    column(width=2, textInput("searchField1", "Search")),
    column(width=2, uiOutput("saveText1"), actionButton("saveBtn1", "Save"))
  ),
  fluidRow(
    DTOutput('sampleTbl')
  )
)
server <- function(input, output, session){
  output$dateSelector <- renderUI({
    airDatepickerInput(
      "dateSelector",
      label = "Select Start & End Dates",
      value = c("2020-01-01", "2020-01-10"),
      multiple = 2
    )
  })
  output$sampleTbl <- DT::renderDT(server = TRUE, {
    data <- data.frame(A = rep(1, 100), B = rep(2, 100), C = rep(3, 100))
    m <- datatable(
      data,
      options = list(pageLength = 100)
    )
    m 
  })
}
shinyApp(ui, server)

ui问题是，如果打开控制面板，则“搜索和保存”按钮会动态向下移动。当控制面板关闭时，搜索栏和按钮向上移动。在您的示例中，我们将失去该功能。如果不能使用空间，则没有必要使用折叠嵌板。也就是说，你向下移动了搜索栏，现在如果控制面板打开，它只是一个空白。但位置不再固定。如果页面上有您必须向下滚动的内容，则控制面板将不再显示。请取消对
style=“position:fixed；”“
部分的注释。代码更新了。我更新了我的示例。无位置：固定您可以看到数据表向下移动。位置：已修复，会破坏功能。抱歉，我不确定是否理解您所需的输出。对于带或不带位置的me：显示固定的预期输出。