Блестящий BBS не совместим с новым блестящим 1.0.5

Question

Я занимаюсь разработкой блестящего приложения, и я хотел бы использовать блестящий. Но SharpBS не совместима с новой блестящей версией 1.0.5, весь экран серый, включая модальный.

Я хотел бы построить в окне bsModal.

Есть ли альтернатива для глянцевого BBS?

Любая идея?

Большое спасибо.

Вот код:

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()
    }) 

}
)