Правильное место для тегов стиля страницы в приложении Shiny с использованием bslib и page_navbar? ⇐ CSS

[Гость]

Я создаю приложение с использованием Shiny в R с bslib, используя page_navbar(), и у меня есть несколько дополнительных вещей CSS, которые я хочу отредактировать. В настоящее время я определяю эти теги стиля в ui.R сразу после определения темы следующим образом:

Код: Выделить всё

page_navbar(
id = "main_tab",
# Theming
theme =
bs_theme(
bootswatch = "lux", version = 5,
primary = "#fc0",
secondary = "#545454",
"navbar-bg" = "#000",
"nav-link-color" = "#FC0 !important",
"nav-link-font-size" = "25px",
"nav-link-font-weight" = "normal",
"nav-text-color" = "#fc0 !important",
"nav-link-hover-color" = "#fc0 !important",
base_font = font_google("Bebas Neue"),
),
tags$style(".datatables td {padding-top: 1px; padding-bottom: 1px;}"),
tags$style(".nav-tabs .nav-link {color: #000000; font-size: 18px;}",
".nav-tabs .nav-link:hover {color: #ddaa00; font-size: 18px;}"),
tags$style(".card-body a {color: #000000}",
".card-body a:hover {color: #ddaa00}"),
...
)

Это работает нормально, и все теги, которые я добавил здесь, применяются к странице правильно, но моя консоль возвращает предупреждение для каждого тега стиля, добавленного здесь:

Внимание: контейнеры навигации ожидают коллекцию bslib::nav_panel()/

Код: Выделить всё

shiny::tabPanel()

s и/или bslib::nav_menu()/

Код: Выделить всё

shiny::navbarMenu()с. Рассмотрите возможность использования верхнего колонтитула

или нижнего колонтитула, если вы хотите разместить контент выше (или ниже) содержимого каждой панели.

Я бы хотел он запускается без предупреждений, поэтому мне любопытно, есть ли лучшее место для размещения этих тегов, чтобы не получать эти предупреждения.

Подробнее здесь: https://stackoverflow.com/questions/778 ... age-navbar