Ршины - То же время в прошлом году

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

Я нашел «что-то, что работает» (я не стану называть это «решением», так как мой уровень опыта низкий).

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