dbplyr doesn't parse lists correctly

[tarunn90]

dbplyr doesn't parse arguments correctly when they're passed in through lists or other classes:

library(dplyr)
library(dbplyr)
library(DBI)
df <- data.frame(x = c(5, 5, 6))
con <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
dbWriteTable(conn = con, name = 'df', value = df, overwrite = T)
tbl(con, "df") %>% filter(x == 5) # this works
l <- list(y = 5)
tbl(con, "df") %>% filter(x == l$y) # errors
tbl(con, "df") %>% filter(x == l[['y']]) # errors

[hadley]

If you want to include use a local list, you need to unquote it.

library(dbplyr)
library(dplyr, warn.conflicts = FALSE)

df <- lazy_frame(x = c(5, 5, 6))
l <- list(y = 5)

df %>% filter(x == l$y)
#> <SQL>
#> SELECT *
#> FROM `df`
#> WHERE (`x` = (5.0 AS `y`).`y`)
df %>% filter(x == !!l$y)
#> <SQL>
#> SELECT *
#> FROM `df`
#> WHERE (`x` = 5.0)

^{Created on 2019-04-30 by the reprex package (v0.2.1.9000)}