Как добавить логотип на ленту заголовка блестящего приложения R, созданного с помощью {bslib}? ⇐ CSS

[Anonymous]

Я пытаюсь добавить логотип своей компании в блестящее приложение R, созданное с помощью {bslib}. Я пробовал разные способы добавления этого изображения в аргумент «заголовок» страницы «page_navbar». Пока изображение добавляется, оно выглядит шатко и меняет положение других элементов на ленте заголовка. Пример изображения и логотип прилагается.
Вот демо-код, иллюстрирующий проблему:

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

library(shiny)
library(bslib)
ui  ##setting the primary color of "zephyr" bootswatch theme manually
bslib::bs_add_rules(
rules = "
.navbar.navbar-default {
background-color: $primary !important;
}
"
),
nav_panel(title = "Trends",
layout_columns(
card(
full_screen = TRUE,
card_header(
"Card 1")
)),
layout_columns(
card(
full_screen = TRUE,
card_header("Card 2")),
card(
full_screen = TRUE,
card_header("Card 3")),
col_widths = c(12, 12)
)
),
nav_panel(title = "Instructions on use", p("Content to be added"))
)

server 

Подробнее здесь: [url]https://stackoverflow.com/questions/78710175/how-can-i-add-a-logo-to-the-header-ribbon-of-an-r-shiny-app-created-using-bslib[/url]