Я в настоящее время работаю над приложением R Shiny, борющимся с обновлением CSS вещей в BS_THEME (...), чтобы обновить цвет боковой аккордеоны
Некоторые работы по темам:
bs_theme ("Navbar-bg" = "#1470b1", аккордеон-btton-bg "=" #fed "), но некоторые не not-> c (acrodion-button-bg", "#fed"), но не-какое-то нельзя. «Аккордеон-биоди-bg») < /p>
В частности, я хотел бы найти блестящие эквиваленты этих следующих CSS (потому что я хочу обновить тему с конкретным цветом, когда пользователь использует темный режим, но с Bslib :: page_sidebar () ...): < /p>
# Update color when input$mode changes
observe({
param
unnest(where)
session$
setCurrentTheme({
thm
filter(is_dark == input$mode) |>
pivot_wider(values_from = color, names_from = where)
bs_theme(
"navbar-bg" = "#1470b1",
"accordion-button-bg" = thm$accordion_bg,
fg = thm$fg, bg = thm$bg, bootswatch = thm$bootswatch
) |>
# I need help here =)
bs_add_variables(
"accordion-collapse-bg" = thm$accordion_bg,
"accordion-body-bg" = thm$accordion_bg
)
})
})
# Exemple of what works but I don't know how to dynamically update
tags$head(tags$style(HTML(str_c("
/* Style pour les en-têtes des accordions */
.accordion-button {
color: black;
background-color: ",thm$accordion_bg,";
}
.accordion-button:not(.collapsed) {
color: black;
background-color: ",thm$accordion_bg,";
}
/* Style pour le corps des accordions */
.accordion-body {
background-color: ",thm$accordion_bg,"; /* Couleur de fond du corps */
color: black;
}
"
))))
< /code>
Вы имеем представление?
Спасибо! < /p>
Подробнее здесь: https://stackoverflow.com/questions/796 ... ibbs-theme
