Как добавить логотип компании в заголовок ShinyDashboard (не mainPanel или mainHeader)

Я попытался сослаться на приведенные ниже ответы, но логотип находится внутри главной панели, а не на панели заголовка ... Есть ли решение?

ЗаголовокЛого

Я видел, что РАСПРЕДЕЛЕНИЕ СЛУЧАЙНЫХ ПЕРЕМЕННЫХ имеет логотип в заголовке главной панели, но не может работать в заголовке ShinyDashboard. Ниже приведен код заголовка логотипа компании:

headerPanel(
        HTML('Distributions of Random Variables v4
            <a href="http://snap.uaf.edu" target="_blank"><img align="right" alt="SNAP Logo" src="./img/SNAP_acronym_100px.png" /></a>'
        ), "Distributions of Random Variables"
    ),

Ниже приведен мой код для добавления логотипа компании и исходных кодов здесь. Есть идеи?

dbHeader <- dashboardHeader(title = 'Reporting Dashboard',
            dropdownMenuOutput('messageMenu'),
            dropdownMenu(type = 'notifications',
                         notificationItem(text = '5 new users today', icon('users')),
                         notificationItem(text = '12 items delivered', 
                                          icon('truck'), status = 'success'),
                         notificationItem(text = 'Server load at 86%', 
                                          icon = icon('exclamation-triangle'), 
                                          status = 'warning')),
            dropdownMenu(type = 'tasks',
                         badgeStatus = 'success',
                         taskItem(value = 90, color = 'green', 'Documentation'),
                         taskItem(value = 17, color = 'aqua', 'Project X'),
                         taskItem(value = 75, color = 'yellow', 'Server deployment'),
                         taskItem(value = 80, color = 'red', 'Overall project')))
dbHeader$children$children <- HTML("<a href='http://www.scibrokes.com' target='_blank'>
                        <img align='right' alt='Logo' src='./oda-army.jpg'/></a>")

css shinydashboard
person RYO ENG Lian Hu    schedule 12.03.2016    source источник

Ответы (1)


arrow_upward
14
arrow_downward

Решение состоит в том, чтобы скрыть ваше изображение, чтобы shiny отображало его так, как если бы оно отображало обычный элемент dropdownMenu.

Как вы могли видеть из своей консоли, dashboardHeader выдает ошибки

Error in FUN(X[[i]], ...) : Expected tag to be of type li

если вы попытаетесь вставить любой пользовательский HTML. И если вы выберете тег li, он даже уточняет

Error in FUN(X[[i]], ...) : Expected tag to have class 'dropdown'

Итак, вот ваша сделка, добавьте свое изображение в оболочку li с классом dropdown, и все готово.

Образец кода:

library(shinydashboard)
library(shiny)

runApp(
  shinyApp(
    ui = shinyUI(
      dashboardPage(
          dashboardHeader(title = 'Reporting Dashboard',
            tags$li(class = "dropdown",
                    tags$a(href="http://snap.uaf.edu", target="_blank", 
                           tags$img(height = "20px", alt="SNAP Logo", src="https://www.snap.uaf.edu/sites/default/files/pictures/snap_symbol_color.png")
                    )
            ),
            dropdownMenuOutput('messageMenu'),
            dropdownMenu(type = 'notifications',
                         notificationItem(text = '5 new users today', icon('users')),
                         notificationItem(text = '12 items delivered', 
                                          icon('truck'), status = 'success'),
                         notificationItem(text = 'Server load at 86%', 
                                          icon = icon('exclamation-triangle'), 
                                          status = 'warning')),
            dropdownMenu(type = 'tasks',
                         badgeStatus = 'success',
                         taskItem(value = 90, color = 'green', 'Documentation'),
                         taskItem(value = 17, color = 'aqua', 'Project X'),
                         taskItem(value = 75, color = 'yellow', 'Server deployment'),
                         taskItem(value = 80, color = 'red', 'Overall project'))
          ),

          dashboardSidebar(),
          dashboardBody()
      )
    ), 

    server = function(input, output){}

  ), launch.browser = TRUE
)

Надеюсь это поможет!

person K. Rohde    schedule 17.03.2016