Rshiny中的基于日期的条件图像图

Question

我的仪表板上有很多功能。对于其中之一，我需要显示依赖于时间滑块的图像。

因此，用户可以移动滑块并在下面的代码指示的范围内选择一个日期。

在mainPanel中绘制了3张图像。我需要添加一个条件语句，以便对于日期1（例如，2017年1月23日）显示第一张图片，对于日期2（例如，2017年1月24日）显示第二张图片，依此类推。 ..

有什么想法吗？

 # Sidebar with a slider input for number of bins 
  sidebarLayout(
    sidebarPanel(
      sliderInput("DatesMerge",
                  "Dates:",
                  min = as.Date("2017-01-23","%Y-%m-%d"),
                  max = as.Date("2017-01-27","%Y-%m-%d"),
                  value=as.Date("2017-01-23"),timeFormat="%Y-%m-%d")
    ),

    # Show a plot of the generated distribution
    mainPanel(
      plotOutput("coolplot"), 


      img(src='DataVis.png', align = "right"),

      img(scr='DataD2.png', align= "right"),
      img(scr='Dat aD3.png',align="right")
    )
  )
)