R ShinyBS模型和Dateinput

Question

我一直在尝试使用带有dateInput的shinyBS模态。问题是日历小部件隐藏在模态后面。这是我的示例代码：

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;}"),