У меня блестящая приборная панель с большим количеством функций.Для одного из них мне нужно отобразить изображение в зависимости от ползунка времени.
Таким образом, пользователь может перемещать ползунок и выбирать дату в диапазоне, указанном в коде ниже.
в главной панели представлены 3 изображения.Что мне нужно, так это добавить условное утверждение, чтобы для даты 1 (например, 23-01-2017) отображалось первое изображение, для даты 2 (например, 24-01-2017) 2-е изображение и так далее...
Есть идеи?
# 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")
)
)
)