shiny-bsModalは全てshyethemesでグレーで表示されます

Question

私はビルドしたアプリでかなり広範囲にライブラリshinythemesを使用しています。私はshinyBSパッケージからbsModalを活用しようと、何もクリック可能ではなかったので、divの「フェードイン」は使用できないWebアプリケーションを私に残して去って行ったことがないことに気づきました。

shinyBS::bsModalの例は、すべて正常に動作します（これらはsans-shinythemesです）。モーダルを使用しながらテーマを使用し続けるにはどうすればよいですか？

例のApp：

library(shiny) 
library(shinyBS) 
library(shinythemes) 

app = shinyApp(
    ui = 
    navbarPage(title=NULL, 
     id="navbar", 
     theme = shinytheme("journal"), 
     tabPanel("test", 
     column(1), 
     column(3, 
      sliderInput("bins", 
      "Number of bins:", 
      min = 1, 
      max = 50, 
      value = 30), 
      actionButton("tabBut", "View Table") 
     ), 
     column(7, 
      plotOutput("distPlot"), 
      bsModal("modalExample", "Data Table", "tabBut", size = "large", 
      dataTableOutput("distTable")) 
     ) 
    ) 
    ), 
    server = 
    function(input, output, session) { 

     output$distPlot <- renderPlot({ 

     x <- faithful[, 2] 
     bins <- seq(min(x), max(x), length.out = input$bins + 1) 

     # draw the histogram with the specified number of bins 
     hist(x, breaks = bins, col = 'darkgray', border = 'white') 

     }) 

     output$distTable <- renderDataTable({ 

     x <- faithful[, 2] 
     bins <- seq(min(x), max(x), length.out = input$bins + 1) 

     # draw the histogram with the specified number of bins 
     tab <- hist(x, breaks = bins, plot = FALSE) 
     tab$breaks <- sapply(seq(length(tab$breaks) - 1), function(i) { 
      paste0(signif(tab$breaks[i], 3), "-", signif(tab$breaks[i+1], 3)) 
     }) 
     tab <- as.data.frame(do.call(cbind, tab)) 
     colnames(tab) <- c("Bins", "Counts", "Density") 
     return(tab[, 1:3]) 

     }, options = list(pageLength=10)) 

    } 
) 

runApp(app) 

Answer 1

私は、競合の原因を知りませんが、解決策は、直接のテーマへのリンクを指定することです。 theme = shinytheme("journal")をtheme = "http://bootswatch.com/journal/bootstrap.css"に置き換えて、使用しているテーマの名前を調整します。 https://github.com/ebailey78/shinyBS/issues/62しかし、必ずそれはStackOverflowの上で掲載された作りたかった：