title: R-Shinny image path not working when multiple folders
body: <p>I have an R-Shinny app which displays images based on two <code>selectInput</code> as follows:</p>
  <pre><code>ui&lt;-dashboardBody(
    tabItem(tabName = &quot;title&quot;,
            fluidRow(
              column(6,
                     box(
                       background = &quot;olive&quot;, width = NULL,
                       column(6,
                              selectInput(&quot;SpIDA&quot;,
                                          &quot;Species:&quot;,
                                          choices = c(&quot;SELECT SPECIE&quot;,dat$Specie),
                                          selected = &quot;SELECT SPECIE&quot;)),
                       column(6,
                              selectInput(&quot;SpArea&quot;,
                                          &quot;Area:&quot;,
                                          choices = c(&quot;SELECT AREA&quot;,dat$Area),
                                          selected = &quot;SELECT AREA&quot;))
                     ))
            ),
            tabsetPanel(
              tabPanel(&quot;title&quot;,
                       fluidRow(column(width = 6, 
                                       imageOutput(&quot;img.1&quot;, height = &quot;50%&quot;)
                       ))
              ))
            )
  )
  </code></pre>
  <p>I have the images stored in a local directory as &quot;www/Specie/Area&quot;, and the image names are standard across the folders. My problem, is that when more than two areas are available for a particular specie, the images are not displayed...</p>
  <p>My server section is:</p>
  <pre><code>server &lt;- function(input, output, session) {
  observe({
      tmp&lt;-dat[dat$Specie == input$SpIDA,]
      
      updateSelectInput(session, 
                        &quot;SpArea&quot;,
                        &quot;Area:&quot;,
                        choices = c(&quot;SELECT AREA&quot;,tmp$Area),
                        selected = &quot;SELECT AREA&quot;)
      
      }) #Just to filter the selection SPArea selection choices based on the SpIDA
  
      output$img.1 &lt;- renderImage({
      
      image_path&lt;-file.path(&quot;www&quot;,input$SpIDA,input$SpArea, 
                            &quot;img1.png&quot;)
      return(list(src = image_path, filetype = &quot;image/png&quot;,width = 300))
    }, deleteFile = FALSE)}
  </code></pre>
  <p>For species in which only one Area is available (and therefore only one folder), the image is displayed, but when there is more than one area, the app returns a blank space, but no error is thrown.</p>
  <p>I believe I am correctly defining in which &quot;Area&quot; folder to look for, hen there is more than one option available but I have not been able to figure this one out.</p>
  <p>Thanks</p>