How to use math operator (eg. <, >) in glue_sql?

[shizidushu]

library(glue)

con <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
colnames(iris) <- gsub("[.]", "_", tolower(colnames(iris)))
DBI::dbWriteTable(con, "iris", iris)

oper <- "<"

query <- glue_sql("SELECT * FROM iris WHERE sepal_length {`oper`} sepal_width", .con = con)

DBI::dbGetQuery(con, query)
#> Error in result_create(conn@ptr, statement): near "`<`": syntax error

^{Created on 2019-02-12 by the reprex package (v0.2.1)}

[andresrcs]

@shizidushu

sepal_length {`oper`} sepal_width

Don't use the backticks

sepal_length {oper} sepal_width

[shizidushu]

It is another syntax error.

library(glue)

con <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
colnames(iris) <- gsub("[.]", "_", tolower(colnames(iris)))
DBI::dbWriteTable(con, "iris", iris)

oper <- "<"

query <- glue_sql("SELECT * FROM iris WHERE sepal_length {oper} sepal_width", .con = con)

DBI::dbGetQuery(con, query)
#> Error in result_create(conn@ptr, statement): near "'<'": syntax error

^{Created on 2019-02-12 by the reprex package (v0.2.1)}

[andresrcs]

Sorry for that, you need to get rid of the backticks on sql not in R, this works for me

query <- glue_sql("SELECT * FROM iris WHERE sepal_length {as.name(oper)} sepal_width", .con = con)
# <SQL> SELECT * FROM iris WHERE sepal_length < sepal_width