Shiny SelectInput 为 renderImage 生成文件路径

Question

我的脚本的 www 文件夹中有一系列“.jpg”文件。我想让 renderImage 根据我的 UI 的输入（日期、平台）使用名为 "dateplatform.jpg" 的文件名渲染图像。当我在我的 server.r 文件中尝试下面的脚本时，应用程序没有显示任何图像。有什么想法吗？

ui（部分）

       fluidRow(
                column(width=12,
                imageOutput("platformimage")
                      )
               )

服务器（部分）

    filename <- reactive ({
    paste(input$date, input$platform, sep="")
    })

    output$platformimage <- reactive({
    renderImage({
    list(src = filename(),
         width = 600,
         height = 600)

            },deleteFile = FALSE)
    })

Answer 1

filename 必须至少附加扩展名，normalizePath 可能更安全：

filename <- reactive({
    normalizePath(file.path(paste0(input$date, input$platform, '.jpg')))
})

如果失败，可能是因为服务器找不到文件。检查由 filename() 创建的路径，并在 file.path()

内修复

希望对您有所帮助。

Shiny SelectInput 为 renderImage 生成文件路径

Shiny SelectInput to generate filepath for renderImage

r

shiny

reactive