从使用shinyDirChoose加载的文件夹渲染用于交互显示的图像

install.packages("shiny")
install.packages("shinyFiles")

library(shiny)
library(shinyFiles)

ui <- fluidPage(
  titlePanel("Image Viewer"),
  sidebarLayout(
    sidebarPanel(
      shinyDirButton("dir", "Choose Directory", "Please select a directory"),
      uiOutput("file_selector")
    ),
    mainPanel(
      imageOutput("image_display")
    )
  )
)

server <- function(input, output, session) {
  volumes <- c(Home = fs::path_home(), getVolumes()())
  
  shinyDirChoose(input, "dir", roots = volumes, session = session)
  
  selected_dir <- reactive({
    parseDirPath(volumes, input$dir)
  })
  
  output$file_selector <- renderUI({
    req(selected_dir())
    files <- list.files(selected_dir(), pattern = "\\.(jpg|jpeg|png|gif)$", full.names = TRUE)
    selectInput("file", "Choose an image file", choices = files)
  })
  
  output$image_display <- renderImage({
    req(input$file)
    list(src = input$file, contentType = 'image/png', alt = "Selected Image")
  }, deleteFile = FALSE)
}

shinyApp(ui, server)

shiny::runApp("path/to/your/app.R")