shinyBS与新闪亮的1.0.5不兼容

Question

我正在开发闪亮的应用程序，我想使用shinyBS。但是闪亮的BS与新闪亮的v1.0.5兼容，整个屏幕灰色，包括模态。

我想在bsModal窗口上绘图。

有没有另外一种方法可以使用shinyBS？

有什么想法吗？

非常感谢。

以下是代码：

library(shiny)
library(shinyBS)

shinyApp(
ui =
fluidPage(
  sidebarLayout(
    sidebarPanel(numericInput("n", "n", 50),actionButton("go", "Go")),
    mainPanel(
      bsModal("modalExample", "Your plot", "go", size = "large",plotOutput("plot"),downloadButton('downloadPlot', 'Download'))
    )
  )
),
server =
function(input, output, session) {

  randomVals <- eventReactive(input$go, {
    runif(input$n)
  })

  plotInput <- function(){hist(randomVals())}

  output$plot <- renderPlot({
    hist(randomVals())
  })

  output$downloadPlot <- downloadHandler(
    filename = "Shinyplot.png",
    content = function(file) {
      png(file)
      plotInput()
      dev.off()
    }) 

}
)