Как изменить цвет кнопки «Свернуть / развернуть» в 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 код в tags$style, как в примере выше, и добавляете некоторые аргументы для его настройки. Есть много ресурсов онлайн на CSS.

Например, в приведенном выше примере я увидел в «Инспекторе», что стиль значка CSS был:

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

Так что я просто поместил его в tags$style и затем искал, какой аргумент мне нужен, чтобы изменить цвет иконки. Этот ответ на другой пост дал мне решение: вам нужно добавить color.

Надеюсь, это поможет