Dplyr仅按月，日和年中的差异过滤日期，而不按日期本身

Question

我目前正在尝试使用闪亮的方法通过以下所示的方法创建反应性数据帧。我一直在尝试将用户输入的内容从Shiny传递到经过反应过滤的数据框中。但是，我遇到了问题，并决定对日期进行硬编码，以找出问题所在。不幸的是，当我返回数据框时，它仅包含日期在各个月，日和年之间的行。因此，如果我的最短日期是1981年2月3日，而我的最大日期是1982年4月4日，则只返回带有月份的日期：2月-4月，天：3-4日，以及年份：1981-82。我应该获取指定的两个之间的所有日期，而应获取每个“月-月/日-日/年-年”范围内的所有日期。有谁知道如何使用相同的过滤方法解决此问题？

crimeDataFull <- read.csv("Crime_Data.csv",  stringsAsFactors = FALSE) 
crimeDataCut <- select(crimeDataFull, Occurred.Date, Crime.Subcategory, 
Precinct, Neighborhood)
     crimeDataCut$Occurred.Date <-as.Date(crimeDataCut$Occurred.Date)
     crimeDataReact <- reactive({filter(crimeDataCut, 
                                Occurred.Date >= as.Date("12/03/1900") &
                                Occurred.Date <= as.Date("12/03/2017"),
                                Precinct == input$selectPrecinct)
                               })

`