Dateinput function not functioning in filter - r

Question

Below is my UI function in Flexdashboard. But when I try to on dates range, I am not getting the out. Below is the sample dataframe
df
Date Variable
21-09-2017 22:05:00 A
22-09-2017 22:05:00 B
23-09-2017 22:05:00 C
24-09-2017 22:05:00 D
24-09-2017 22:05:00 E
Filter function function below.(Not sure what wrong I am doing here in Filter function. I need both Variable and Date in filters
output$g1 <- renderPlotly({
req(input$Plot1)
if (input$Plot1 == "Trend") {
plot_data <- df
}
if (input$Plot1 == "Trend" & input$b != "All" & input$s2 != NULL) {
#plot_data <- df %>% filter(variable == input$b)
plot_data <- df[df$variable %in% input$b & df$Date %in% input$s2,]
}
UI function below
selectInput("Plot1","Filter1",choices = c("","Trend","Correlation"))
output$filter_2 <- renderUI({
if (input$Plot1 == "") {
return()
} else if (input$Plot1 == "Trend") {
label = "Trend"
selectInput("b",label,choices = c("All",levels(factor(df$variable))),multiple = TRUE)
} else {
label = "First Variable"
selectInput("b",
label,
choices = c(levels(factor(df$variable))))
}
})
uiOutput("filter_2")
uiOutput("filter_4")
output$filter_4 <- renderUI({
if(input$Plot1 == "Trend"){
dateRangeInput("s2","Date",min = min(df$Date),max = max(df$Date))
} else if(input$Plot1 == "Correlation"){
dateRangeInput("s2","Date",min = min(df$Date),max = max(df$Date))
}
})