R Shiny - 去年同期

Question

我正在尝试在 Shiny 应用程序中并排显示两个图。

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

我用来过滤日期范围输入数据的代码如下：

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

我找到了 "something that works"（由于我的经验水平很低，我不会将其称为 "solution"）。

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)
})

R Shiny - 去年同期

RShiny - Same time last year

r

lubridate

shiny

dplyr