代码之家 › 专栏 › 技术社区 › Davide Lorino

rshiny-去年同期

lubridate dplyr shiny r

0

Davide Lorino · 技术社区 · 7 年前

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

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

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

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”内的所有数据。

非常感谢您的帮助!

1 回复 | 直到 7 年前

1

0

Davide Lorino 7 年前

我发现了“有用的东西”(我不再称之为“解决方案”,因为我的经验水平很低)。

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