r-闪亮-bsModal都用闪亮的时间变灰

Question

我在构建的应用程序中非常广泛地使用库shinythemes。我试图利用shinyBS包中的bsModal，并注意到"淡入"div从未消失，这给我留下了一个无法使用的web应用程序，因为没有什么是可点击的。

shinyBS::bsModal中的例子都很好（它们是无光泽的）。如何在使用情态动词的同时继续使用主题？

示例应用程序：

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"，以调整正在使用的主题的名称。