Shiny应用外部调用时图片无法正常显示问题

问题根源 #

• Shiny默认从www目录加载静态资源，但外部脚本调用时，R会话的工作目录并非Shiny项目根目录，导致无法解析/prova/1.jpg的路径。
• 先在RStudio运行后再调用能显示，是因为RStudio运行时已初始化资源路径缓存，清理环境后缓存失效，路径解析失败。

修复方案 #

方案1：用addResourcePath绑定资源路径（推荐） #

在MainApp.R中添加资源路径映射，确保无论工作目录在哪，Shiny都能准确定位图片：

library(shiny)

# 绑定prova资源路径到www下的对应文件夹
addResourcePath("prova", file.path(getwd(), "www", "prova"))

app_ui <- fluidPage(
    titlePanel("Old Faithful Geyser Data"),
    sidebarLayout(
        sidebarPanel(
            sliderInput("bins", "Number of bins:", min = 1, max = 50, value = 30),
            img(src = "/prova/1.jpg", height = "300px", width = "100%")
        ),
        mainPanel(
            plotOutput("distPlot")
        )
    )
)

app_server <- function(input, output) {
    output$distPlot <- renderPlot({
        x    <- faithful[, 2]
        bins <- seq(min(x), max(x), length.out = input$bins + 1)
        hist(x, breaks = bins, col = 'darkgray', border = 'white',
             xlab = 'Waiting time to next eruption (in mins)',
             main = 'Histogram of waiting times')
    })
}

app <- shinyApp(ui = app_ui, server = app_server)

方案2：外部脚本中设置工作目录 #

修改external.R，先切换到Shiny项目根目录再加载应用：

# 替换为你的Shinyapp文件夹绝对路径
setwd("path_to_your_Shinyapp_folder")
source("MainApp.R")
app

方案3：修改img的相对路径（不推荐，依赖工作目录） #

将图片路径改为基于项目根目录的相对路径（仅当工作目录固定为项目根目录时有效）：

img(src = "www/prova/1.jpg", height = "300px", width = "100%")

验证方法 #

• 清理R环境并重启会话
• 直接运行external.R，检查图片是否正常显示

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