r - 闪亮的 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()

希望这可以帮助。