r - R ShinyBS 模型和日期输入

Question

我一直在尝试将 shinyBS 模态与dateInput. 问题是日历小部件隐藏在模式后面。这是我的示例代码：

library(shiny)
library(shinyBS)

shinyApp(
  ui =fluidPage(
    mainPanel(
      actionButton("button", label = "Open Modal"),
      bsModal("modalExample", "Data Table", "rowtogg", size = "small",
              fluidPage(dateInput("dates", "Enter date")))
    )
  ),



  server = function(input, output, session) {
    observeEvent({
      input$button
    },{
      toggleModal(session, "modalExample", "open")
    })
  }
)

可以在以下位置找到问题的屏幕截图：https ://github.com/ebailey78/shinyBS/issues/46 ，我已经在其中提出了这个问题。但是，在我看来，这是一个更“普遍”的问题，所以我希望这里有人可以帮助我。

编辑：感谢 Yenne Info，它通过添加：

 tags$style(type = "text/css", ".datepicker{z-index: 1100 !important;}"),