Shiny SelectInput zum Generieren eines Dateipfads für renderImage

Question

Ich habe eine Reihe von ".jpg" -Dateien in meinem www-Ordner meines Skripts. Ich möchte renderImage haben, um das Bild mit dem Dateinamen "dateplatform.jpg" basierend auf den Eingaben (Datum, Plattform) meiner Benutzeroberfläche zu rendern. Wenn ich das folgende Skript in meiner server.r-Datei ausprobiere, zeigt die App kein Bild an. Irgendwelche Gedanken?

ui (Teil-)

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

Server (teilweise)

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

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

      },deleteFile = FALSE) 
    }) 

Answer 1

filename hat zumindest die Verlängerung zu ihm angebracht haben, und es ist wahrscheinlich sicherer zu normalizePath es:

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

Wenn dies fehlschlägt, liegt es wahrscheinlich daran, dass der Server das nicht finden kann Datei. Überprüfen Sie den Pfad erstellt von filename(), und beheben Sie innerhalb file.path()

Hope dies hilft.