R包工作流中如何为Shiny应用添加图片？

问题根源 #

核心错误是静态资源目录位置不符合R包规范：在R包工作流里，Shiny的www静态资源文件夹不能放在R/目录下（R/仅用于存放R代码文件），包构建工具（如devtools::load_all()）不会识别R/下的静态资源，导致Shiny无法找到图片路径。

解决方案 #

1. 调整包文件结构 #

将R/www/logo.png移动到包根目录的inst/www/路径下，最终包结构应为：

your-package/
├── DESCRIPTION
├── R/
│   └── app.R  # 存放myApp函数代码
└── inst/
    └── www/
        └── logo.png

2. 修改UI中的图片引用方式 #

提供两种可靠写法：

方法一：利用Shiny默认资源映射

Shiny会自动将包中inst/www目录映射为Web访问的根路径，直接写文件名即可：

tags$img(src = "logo.png", width = 200, style = "margin-left: 20px;")

方法二：显式注册资源路径（更严谨）

如果需要自定义资源路径名称，可在启动函数中提前注册后引用：

myApp <- function(...) {
  # 注册资源路径：将包内www目录映射为Web端的"app-assets"路径
  shiny::addResourcePath("app-assets", system.file("www", package = "test2"))
  
  ui <- fluidPage(
    titlePanel("Minimal Shiny App"),
    mainPanel(
      div(
        style = "display: flex; align-items: center;",
        sliderInput("slider", "Slider", min = 1, max = 10, value = 5),
        tags$img(src = "app-assets/logo.png", width = 200, style = "margin-left: 20px;")
      ),
      plotOutput("plot")
    )
  )
  
  server <- function(input, output) {
    output$plot <- renderPlot({
      plot(1:input$slider, type = "l", lwd = 2)
    })
  }
  
  shinyApp(ui = ui, server = server, ...)
}

3. 验证步骤 #

1. 清理包缓存：执行devtools::clean()
2. 重新加载包：devtools::load_all()
3. 启动应用：myApp()，此时图片应正常显示

原方法失效原因 #

• 把www放在R/目录下，devtools::load_all()仅加载R/下的代码文件，不会处理静态资源，导致Shiny找不到图片。
• 先用runApp()再启动myApp()能显示，是因为runApp()会临时将当前工作目录设为包根目录，偶然读取到文件，但这不是包工作流的规范做法。
• 之前的system.file("R/www", "logo.png", package = "test2")路径错误，因为R/www不会被打包到最终的包目录中，只有inst/下的内容会被完整保留到包的安装路径里。

内容的提问来源于stack exchange，提问作者TarJae