帶有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)