Question

我正在尝试在闪亮的仪表板的右上角添加徽标，但是它会显示一个问号。我尝试更改徽标的高度和宽度，但是它不起作用。当您单击徽标时，它会将您带到可以正常运行但无法在仪表板上看到徽标的网站。

我已经参考了以下所有这些文章，但是都无法解决我的问题

Adding a company Logo to ShinyDashboard header

这是我到目前为止在仪表板标题中编写的代码

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")))

任何人都可以帮助我解决此问题。

非常感谢！

Answer 1

希望获得帮助：

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)

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

1 个答案: