如何在Shiny仪表板中根据多条件展示本地存储的多张图片

• 前置准备
  所有需要展示的本地图片全部放入Shiny项目根目录的www文件夹中，不存在该文件夹可手动新建，示例中图片文件名为img1.png、img2.png、imgn.png。
• UI端添加输出占位
  在UI代码中添加uiOutput作为动态图片的渲染容器：

ui <- fluidPage(
  # 可替换为你实际使用的id输入控件
  selectInput(inputId = "id", label = "选择ID", choices = c("condition_1", "condition_2", "condition_n")),
  # 动态图片输出位
  uiOutput(outputId = "dynamic_image")
)

• Server端逻辑实现
  提供两种实现方式，可按需选择：
  1. 命名映射方式（适合条件较多的场景，无需编写大量if判断）

server <- function(input, output) {
  # 建立条件和对应图片路径的映射关系
  img_mapping <- c(
    "condition_1" = "img1.png",
    "condition_2" = "img2.png",
    "condition_n" = "imgn.png"
  )
  output$dynamic_image <- renderUI({
    # 直接获取响应式输入值，无需额外包裹reactive()调用
    current_id <- input$id
    target_img_path <- img_mapping[current_id]
    # 渲染图片，宽高等参数可自行调整
    tags$img(src = target_img_path, width = "70%")
  })
}

2. if判断方式（和你提供的逻辑完全对齐）

server <- function(input, output) {
  output$dynamic_image <- renderUI({
    current_id <- input$id
    if (current_id == "condition_1") {
      tags$img(src = "img1.png", width = "70%")
    } else if (current_id == "condition_2") {
      tags$img(src = "img2.png", width = "70%")
    } else if (current_id == "condition_n") {
      tags$img(src = "imgn.png", width = "70%")
    }
  })
}

• 常见异常排查
• 图片无法显示优先检查路径：src参数直接填写www文件夹内的文件名即可，不需要添加www/前缀
• 不要重复套reactive()：input$id本身就是响应式变量，在renderUI等响应式上下文中直接调用input$id取值即可
• 确认文件名大小写、后缀和代码中填写的完全一致，图片文件本身可正常打开

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