r语言 - 在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文件