Даты фильтрации Dplyr только по разнице в месяце, дне и году, а не по дате

Question

В настоящее время я пытаюсь использовать «блестящий» для создания реактивного фрейма данных, используя метод, показанный ниже.Я пытался передать пользовательский ввод из блестящего в мой реактивно фильтрованный фрейм данных.Однако я столкнулся с проблемами и решил жестко закодировать даты, чтобы определить, что было не так.К сожалению, когда я возвратил свой фрейм данных, он содержал только строки с датами между отдельными значениями месяца, дня и года.Таким образом, если моя минимальная дата - 3 февраля 1981 г., а максимальная - 4 апреля 1982 г., возвращаются только даты с месяцами: февраль - апрель, дни: 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)
                               })

`