dateRangeInput with GLUE package

Replying my own post in the past:

I'm using almost the same code, but with other names, like:

dateRangeInput("iData", 
                                  label = ("Periodo"),
                                  start = Sys.Date() - 365, end = Sys.Date() - 1,
                                  format = "dd/mm/yyyy",
                                  language = "pt-BR",
                                  separator = "ate"
                   )

In the GLUE package, doing this:

df2 <- dbGetQuery(
      connection,
      query <- glue(
"select DATA_ENFORNAMENTO_TF2
from DWA_AM_TRACA 
where DATA_ENFORNAMENTO_TF2 between DATE '{as.character(input$iData[1])}' and DATE '{as.character(input$iData[2])}'
")

But, that way it just did not work and I'm copying the example in the link posted.
ex: where AUST.DTH_DESENFORNAMENTO between DATE '{as.character(input$dates[1])}' and DATE '{as.character(input$dates[2])}' <------ this worked

Where is the mistake?

A post was merged into an existing topic: Using dateRangeInput with BETWEEN logic in SQL