无法使用 bslib 将主题设置为闪亮

Question

我正在尝试使用

shiny

为我的

bslib

应用程序设置一个新主题，并为

accordion

标题设置一些附加规则。我看不出有什么区别，这是为什么？

library(shiny)
library(bslib)

theme = bs_theme(bg = "black", fg = "white") |> 
  bs_add_rules(".accordion-title {
    color: red;
    font-family: 'Lucida Console', 'Courier New', monospace;
    }")

ui <- 
page_fillable(
  page_fluid(
    page_sidebar(
      theme = theme,
      sidebar = bslib::accordion(accordion_panel("Options"))
    ),
  ))


shinyApp(ui, function(input, output, session){})

Answer 1

我稍微更改了您的“bs_add_rules”，现在您的代码可以按您的预期工作。

theme = bs_theme(bg = "black",fg = "white") %>%
 bs_add_rules(".accordion-title{")%>%
 bs_add_rules(' color:red;") %>%
 bs_add_rules(" front -family:'Lucida Console','Courier New',monospace;") %>%
 bs_add_rules("}")