r - 闪亮的仪表板上未加载徽标

Question

我第一次尝试使用闪亮来构建一个非常简单的网络应用程序。

我想在仪表板的左上角添加一个徽标，但无法加载图片

这就是我写的：

library(shiny)
library(shinydashboard)
shinyUI(
  dashboardPage(
    dashboardHeader(title=tags$img(src='logo.jpg')),
    dashboardSidebar(),
    dashboardBody()
  )
)

这是我的文件夹的结构

GH
-->model
---->app
------>webapp
       server.R
       ui.R
--> pictures
    logo.jpg

如果我运行我的应用程序，我会得到一个问号作为实际图片的占位符

标签： rshiny

Answer 1

尝试用 强制它addResourcePath(prefix, path)，然后使用src = "prefix/logo.jpg"

library(shiny)
library(shinydashboard)

ui <- function(){
    addResourcePath("www", "www")
    tagList(
        dashboardPage(
            dashboardHeader(title = tags$img( src='www/logo.png') ),
            dashboardSidebar(),
            dashboardBody()
        )  
    )
}


server <- function(input, output) {

}

# Run the application 
shinyApp(ui = ui, server = server)