Переместите lo go в левую часть заголовка приборной панели в блестящей приборной панели - PullRequest
0 голосов
/ 26 марта 2020

У меня есть блестящая приборная панель с фирмой 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
)    

1 Ответ

1 голос
/ 26 марта 2020

Элемент, который вы хотите переместить, - это div с классом .navbar-custom-menu.
. Добавьте это в свой пользовательский css в tags$head(tags$style(HTML(...))), чтобы заставить его перемещаться влево:

.navbar-custom-menu {
       float: left!important;
}

. !important необходимо для предотвращения его перезаписи на css в другом месте.

...