R 徽标在闪亮的仪表板上显示为问号

R 徽标在闪亮的仪表板上显示为问号,r,shiny,shinydashboard,R,Shiny,Shinydashboard,我试图在我闪亮的仪表板右上角添加一个徽标,但它似乎是一个问号。我尝试过改变标志的高度和宽度,但没有效果。当你点击徽标时,它会将你带到一个网站,该网站可以正常工作,但无法在仪表板上看到徽标 我参考了以下所有文章,但没有一篇能够解决我的问题 这是迄今为止我在仪表板标题中编写的代码 library(shiny) library(shinydashboard) library(dplyr) library(ggplot2) ui <- dashboardPage( dashboardHe

我试图在我闪亮的仪表板右上角添加一个徽标,但它似乎是一个问号。我尝试过改变标志的高度和宽度,但没有效果。当你点击徽标时,它会将你带到一个网站,该网站可以正常工作,但无法在仪表板上看到徽标

我参考了以下所有文章,但没有一篇能够解决我的问题

这是迄今为止我在仪表板标题中编写的代码

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")))  
库(闪亮)
图书馆(shinydashboard)
图书馆(dplyr)
图书馆(GG2)
ui希望这有助于:

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)
库(闪亮)
图书馆(shinydashboard)

应用程序是否已将您的图像放置在工作目录中名为
www
的文件夹中?如果没有,请创建一个名为
www
的文件夹,并将所有图像粘贴到该文件夹中。@msr\u 003该建议有帮助。我按照建议将它们放在www文件夹中,它起了作用。非常感谢你的帮助