Controlling quoting by the glue::glue_sql() function

glue_sql_quoting.R

library(glue)
library(RSQLite)

con <- dbConnect(RSQLite::SQLite(), ":memory:")
var = "test"
glue_sql("{var}", .con = con)            # <SQL> 'test'
glue_sql("{`var`}", .con = con)          # <SQL> `test`
glue_sql("{DBI::SQL(var)}", .con = con)  # <SQL> test (unquoted)
glue_sql("`{var}`", .con = con)          # <SQL> `'test'` NOT USEFUL

var = c("test1", "test2")
glue_sql("{var*}", .con = con)           # <SQL> 'test1', 'test2'
glue_sql("{`var`}", .con = con)          # <SQL> `test1` (newline) <SQL> `test2`
glue_sql("{DBI::SQL(var)}", .con = con)  # <SQL> test1 (newline) <SQL> test2