Shiny - bsModal alles ausgegraut mit shinythemes

Question

Ich benutze die Bibliothek shinythemes ziemlich ausgiebig in Apps, die ich erstelle. Ich habe versucht, eineaus dem shinyBS Paket zu nutzen und bemerkte, dass das 'Einblenden' div nie wegging, mich mit einer unbrauchbaren Webanwendung verlassend, da nichts anklickbar war.

Die Beispiele von shinyBS::bsModal funktionieren alle gut (sie sind sans-shinythemes). Wie kann ich weiterhin Themen verwenden und auch Modale verwenden?

Beispiel 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

Ich weiß nicht, was den Konflikt verursacht, aber die Lösung ist der Link zu dem Thema direkt zu spezifizieren. Ersetzen Sie theme = shinytheme("journal") durch theme = "http://bootswatch.com/journal/bootstrap.css", indem Sie den Namen für das verwendete Thema anpassen.