ShinyのselectInputに従ってさまざまな画像を表示するには？

Question

私は種を選択するドロップダウンメニューで人口モデルを示すアプリを持っています。その種のモデルのプロットがレンダリングされ、今、そのプロットの隣にある種のイメージが必要になります。 日付または場所が変更されたときにプロットが変更されますが、その横の画像は選択された種の入力にのみ反応します。

私はそれのためにこのコードを書いている：私は取得

ui <- fluidPage(
# ... rest of the code 
    wellPanel(
    fluidRow(
     column(3, selectInput("populatie", label = h4("Populatie"), 
         choices = list("PERENBLADVLO" = "PER", "OORWORM" = "OOR", "FLUWEELMIJT" = "FLU"), 
         selected = "PER"), 
      imageOutput("img1")), # here is the image 
     column(9, plotOutput("plot2")) 
    ) 
) 
) 

server <- function(input, output){ 
# ... rest of the code 
    output$img1 <- renderImage({ 
    if(input$populatie == "PER"){    
     img(height = 240, width = 300, src = "PBV.jpg") 
    }           
    else if(input$populatie == "OOR"){ 
     img(height = 240, width = 300, src = "OW.jpg") 
    } 
    else if(input$populatie == "FLU"){ 
     img(height = 240, width = 300, src = "FM.jpg") 
    } 
    }) 
# ... rest of the code 
} 

何が「無効なファイル名引数を」というエラーです。 画像を選択せず​​に自分でレンダリングできます。

思考？

Answer 1

それはこのようなものだ、なぜ私はまだかなり理解していないが、私は解決策を見つけた：

私が代わりにimageOutputとrenderImage({})のuiOutput()とrenderUI({})を使用する場合には、正常に動作します。 残りのコードはまだ同じです。