如何在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描述。

然后，将此CSS代码放入标记$style中，如上面的示例所示，并添加一些参数对其进行自定义。在CSS上有许多在线资源。

.fa, .fas {
   font-weight: 900;
}