Логотип отображается в виде знака вопроса на блестящей приборной панели - PullRequest
Новая
       7

Логотип отображается в виде знака вопроса на блестящей приборной панели

0 голосов
/ 18 декабря 2018

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

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

Добавление логотипа компании в заголовок ShinyDashboard

Изображение не отображается в приложении Shiny R

R блестящий - изображение не отображается

Это код, который я написал до сих пор, мой заголовок панели инструментов 

library(shiny)
library(shinydashboard)
library(dplyr)
library(ggplot2)
ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody()
)
server <- function(input, output) {}


#Dashboard header carrying the title of the dashboard
header <- dashboardHeader(title="Dashboard"
                          ,tags$li(class = "dropdown",
                                   tags$a(href="https://www.mbm.net.nz/", 
                                          tags$img(height = "20px", src="Ascibe_logo.jpg", width = "200px")
                                   )),

                          dropdownMenu(type = "messages",
                                       messageItem(
                                         from = "Sales Dept",
                                         message = "Sales are steady this month."),
                                       messageItem(
                                         from = "New User",
                                         message = "How do I register?",
                                         icon = icon("question"),
                                         time = "13:45"),
                                       messageItem(
                                         from = "Support",
                                         message = "The new server is ready.",
                                         icon = icon("life-ring"),
                                         time = "2014-12-01")),
                          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")))

Может кто-нибудь помочь мне решить эту проблему.

Большое спасибозаранее !!

1 Ответ

0 голосов
/ 18 декабря 2018

надеюсь, что эта помощь: 

library(shiny)
library(shinydashboard)
app <- shinyApp(
ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    tags$head(tags$style(HTML('
                              /* navbar (rest of the header) */
                              .skin-blue .main-header .navbar {
                              background-image:url("https://static1.squarespace.com/static/4f32f57f8754b8e18aef1e01/50716878e4b03adec665056f/5081fc0084ae02360227cc7a/1445030506945/your-logo-here-27.png?format=300w");
                              background-position-x: 99%;
                              background-size: 80px 50px;
                              background-repeat: no-repeat;
                              background-color:#000;
                              }'
)))
    )
    ), 
server <- function(input, output) {}
)
runApp(app)
...