如何在 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，然后搜索修改图标颜色所需的参数是什么。