闪亮的 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()内部修复

希望这会有所帮助。