带有r闪亮的仪表板侧栏面板的绝对面板碰撞

Question

我正在尝试将absolutePanel添加到我的闪亮仪表板应用程序中。 我希望面板位于页面底部，具有窗口的宽度，并在边栏可见或不可见时对其进行调整。 问题是，在打开侧栏时，某些面板不可见：

另一方面，如果我从面板的左侧设置宽度并关闭侧边栏，则它离窗口的左端很远：

这是可复制的代码：

## app.R ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    absolutePanel(
      bottom = 0, left = 0, right = 0, # or left = 300
      fixed = TRUE,
      wellPanel(
        style = "padding: 8px; border-bottom: 1px solid #CCC; background: #FFFFEE;",
        HTML("Save changes?"),
        actionButton("save", "Save"),
        actionButton("cancel", "Cancel")
      )
    )
  )
)

server <- function(input, output) { }

shinyApp(ui, server)

Answer 1

尝试使用它产生的div删除absolutePanel ，并为其添加足够高的z-index以进行样式设置：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    div(
      style = "left:0px; right:0px; bottom:0px; position:fixed; cursor:inherit; z-index: 10000;",
      wellPanel(
        style = "padding: 8px; border-bottom: 1px solid #CCC; background: #FFFFEE;",
        HTML("Save changes?"),
        actionButton("save", "Save"),
        actionButton("cancel", "Cancel")
      ) 
    )
  )
)

server <- function(input, output) { }

shinyApp(ui, server)