在 Shiny 中使用 bslib 包更改颜色

Question

您能帮我使用 RStudio 中的bslib包更改我的主题吗？

我希望顶部栏为浅绿色。 此外，如果可能，创建的按钮（重置）具有蓝色背景。

有可能的？

可执行代码如下：

library(shiny)
library(shinythemes)


ui <- shiny::navbarPage(theme = shinytheme("flatly"),collapsable = TRUE,
                        
                        
                        titlePanel(""),
                        
                        
                        sidebarLayout(
                          sidebarPanel(
                            sliderInput("bins",
                                        "Number of bins:",
                                        min = 1,
                                        max = 50,
                                        value = 30),
                            actionButton("reset", "Reset"),
                          ),
                          
                          
                          mainPanel(
                            plotOutput("distPlot")
                          )
                        )
)


server <- function(input, output) {
  
  output$distPlot <- renderPlot({
    
    x    <- faithful[, 2]
    bins <- seq(min(x), max(x), length.out = input$bins + 1)
    
    
    hist(x, breaks = bins, col = 'darkgray', border = 'white')
  })
}


shinyApp(ui = ui, server = server)

Answer 1

您可以使用 bslib 包，而不是 shinythemes。 有一个名为 bs_themer() 的函数，它为您提供了一个额外的实时 UI 来编辑一般美学。 它还将您更改为放入 UI.R 文件中的代码打印到控制台