如何在 R Shiny 中更改框折叠/展开按钮的颜色？

Question

我不知道如何更改可折叠盒的 +/- 按钮的颜色。我想将白色按钮更改为黑色。下面是示例代码：

library(shiny)

library(shinydashboard)

body <- dashboardBody(

  fluidRow(

    box(status = "info", solidHeader = TRUE, title = "Background - Hypothetical Life", width = "auto", collapsible = TRUE, collapsed = TRUE,

            h5("sample text"))))

ui <- dashboardPage(

  dashboardHeader(title = "Box"),

  dashboardSidebar(),

  body

)

server = function(input, output, session) { }

shinyApp(ui = ui, server = server)

非常感谢！

Answer 1

以下是使用 CSS 的方法：library(shiny)library(shinydashboard)body <- dashboardBody(  tags$style(    type = 'text/css',    '.fa, .fas {      font-weight: 900;      color: black;    }'  ),  fluidRow(    box(status = "info", solidHeader = TRUE,         title = "Background - Hypothetical Life",         width = "auto", collapsible = TRUE, collapsed = TRUE,        h5("sample text"))))ui <- dashboardPage(  dashboardHeader(title = "Box"),  dashboardSidebar(),  body)server = function(input, output, session) { }shinyApp(ui = ui, server = server)当你想更改 CSS 样式中的某些内容但并不真正了解 CSS（像我一样）时，请在浏览器中启动你的应用程序，执行“检查元素”（右键单击或 Ctrl+Shift+C） ）并检查“检查器”。它会显示每个元素的 CSS 描述。tags$style然后，像上面的示例一样放入此 CSS 代码，并添加一些参数来自定义它。网上有很多关于 CSS 的资源。例如，在上面的例子中，我在“Inspector”中看到图标CSS样式是：.fa, .fas {    font-weight: 900; }所以我只是把它放在 a 中tags$style，然后搜索修改图标颜色所需的参数是什么。