试图在一个信息框中呈现bar-chart year（current_year），并且将其值和上一年的值相同，并将其值显示在另一个信息框中，因为plotly_click事件发生在条形图上，如何获取公正前一年及其价值，我已经通过事件获得了当年的价值及其价值，但是如何获得前一年的价值及其价值，最终我想将它们进行比较并找出增长的方法。寻找一个可靠，有效的解决方案。
下面的代码将通过在event_data中的plotly_click事件中点击条形图上的相应条来呈现相应的值。
output$TotalDelivery <- renderInfoBox({
event <- event_data("plotly_click", source = "selectyear")
if (is.null(event)==F) {
infoBox(
paste("YEAR - ",event$x),
event$y,
subtitle =paste("Delivey Total")
,color = "light-blue",
icon = icon("line-chart")
)
}else
{
return(NULL)
}
})
但是我想自动获取上一年的值，因为单击任何年份的条形图都需要点击外汇。单击一个小节，它将在信息框中显示其年份和值，并且此事件还生成上一年的年份及其值。下一步应该做什么。
output$PublicDelivery <- renderInfoBox({
event <- event_data("plotly_click", source = "selectyear")
if (is.null(event)==F) {
infoBox(
paste("YEAR - ",as.numeric("event$x-1")),
event$y,
subtitle =paste("Delivey Total")
,color = "teal",
icon = icon("bar-chart")
)
}else
{
return(NULL)
}
当点击条形图时，当年和上一年的值分别自动显示在信息框中。
目前，它会在单击条形图后立即呈现当前年份的值，但如何获取当前年份的上一年的值。