RShiny -去年同期

Question

我正在尝试在一个闪亮的应用程序中并排显示两个绘图。

在第一个图中，数据显示为用户从日期范围选择器中选择。在第二个图中，我希望它显示用户选择的完全相同的日期范围，但在前一年。

我用来过滤daterange输入数据的代码如下：

reactive_data <- reactive({
   filter(data, between(date, input$dateRange[1], 
                              input$dateRange[2]))
})

理想情况下，我希望我的结果是包含前一年相同日期范围的另一个反应式数据帧-因此，如果用户选择"01/01/2017 - 01/02/2017“，则reactive_data_year_prior将包含日期范围"01/01/2016 - 01/02/2016”内的所有数据。

这方面的任何帮助都是非常感谢的！

Answer 1

我已经找到了“有用的东西”(我不会把它称为“解决方案”，因为我的经验水平很低)。

reactive_data <- reactive({
   filter(data, between(date, input$dateRange[1], 
                              input$dateRange[2]))
})

last_year <- reactive({
data_frame("dateFrom" = input$dateRange[1] - lubridate::years(1), "dateTo" = 
input$dateRange[2] - lubridate::years(1)
})

data_last_year <- reactive({
filter(data, between(date, last_year()$dateFrom, 
last_year()$dateTo)
})