R 筛选数据表中的多年日期

我遇到了一个问题，当我在shiny中筛选数据表时，我无法完全解决这个问题

我显示了两个数据帧，第一个是dateRangeInput过滤器过滤的数据帧的所有行。第二种方法是使用相同的数据集和dateRangeInput，但对期间的总计进行求和。因此，用户将在页面上获取原始+摘要数据

     update.df = eventReactive(input$Submit, {
     data() %>% filter (between( as.Date(Date), input$dateRange[1], input$dateRange[2]))
     })

这是我的第一个数据帧代码-在尝试上述操作之前，我也使用了此代码：

     update.df = eventReactive(input$Submit, {
     data() %>% filter(as.Date(Date) >= as.Date(input$dateRange[1]) & as.Date(Date) <= as.Date(input$dateRange[2]))
      })

update.df=eventReactive（输入$Submit{
data（）%>%filter（as.Date（Date）>=as.Date（输入$dateRange[1]）&as.Date（Date）
as.Date(Date) <= as.Date(input$dateRange[2])