sqldf Problem when use shinyinput(daterange) in where clause to query

[aaaasea]

Hello everyone in R studio community.
I want to use read.csv.sql to read and query in same time ,But I got problem when use shinyinput(daterange) to query date in where clause.

this is my date_range shinyInput

output$Date_Range_selector <- renderUI({
            dateRangeInput("date_range",label = "Date range",
                           start = as.character(Sys.Date()-7), 
                           end = as.character(Sys.Date())
            )
        })

this is my sql code;

query <- paste0("select ET_DATE ,QTY from file
                            where ET_DATE between '",input$date_range[1],"' and '",input$date_range[2],"'
                            group by ET_DATE order by et_date asc ")        
t1 <- read.csv.sql(file="j.csv",sql = query, sep="," 
                           , filter = 'tr.exe -d \'^"\' ')

above code is not error but no data in Output(renderTable).only show column name

But when i change date to use in normal date like this. it's work

where ET_DATE between '22-01-2020' and '29-01-2020' 

Output(renderTable) when use where ET_DATE between '22-01-2020' and '29-01-2020'

I'm try to change shinyinput date format to dd-mm-yyyy or dd-M-yyyy .but not help

output$Date_Range_selector <- renderUI({
        dateRangeInput("date_range",label = "Date range",format = "dd-mm-yyyy",
                       start = as.character(Sys.Date()-7), 
                       end = as.character(Sys.Date())
        )
    })

sample data of date in csv file

ET_DATE <- c("22-Jan-20","23-jan-20","24-jan-20","25-jan-20","26-jan-20","27-jan-20","28-jan-20")
QTY <- c("5","4","52","3.25","4","9","6")

I thinks it's not problem in dateformat of shinyInput,but I still stuck in the problem
I want to query this data with shinyinput(daterange)