У меня есть блестящая приборная панель с фирмой lo go в правой части заголовка, но я бы хотел переместить ее влево. Вот моя попытка (поместите ваш lo go в www subdirectory вашего каталога приложений). Поскольку dashboardHeader () ожидает элемент тега типа li и выпадающего класса, мы можем передать такие элементы вместо dropdownMenus. Мне также нужно, чтобы текст в заголовке был виден нормально.
library(shiny)
library(shinydashboard)
dbHeader <- dashboardHeader(title = "My Dashboard",
tags$li(a(href = 'http://www.company.com',
img(src = 'company_logo.png',
title = "Company Home", height = "30px"),
style = "padding-top:10px; padding-bottom:10px;"),
class = "dropdown"))
server <- function(input, output) {}
shinyApp(
ui = dashboardPage(
dbHeader,
dashboardSidebar(),
dashboardBody(
tags$head(tags$style(HTML(
'.myClass {
font-size: 20px;
line-height: 50px;
text-align: left;
font-family: "Helvetica Neue",Helvetica,Arial,sans-serif;
padding: 0 625px;
overflow: hidden;
color: white;
}
'))),
tags$script(HTML('
$(document).ready(function() {
$("header").find("nav").append(\'<span class="myClass"> ABCD Hypothesis Generation Model </span>\');
})
'))
)
),
server = server
)