Suppport lists of Id objects in glue_sql

NEWS.md

@@ -1,3 +1,5 @@
+* `glue_sql()` now supports unquoting lists of Id objects.
+
 # glue 1.3.0
 
 ## Breaking changes

R/sql.R

@@ -48,6 +48,7 @@
 #'     AND {`tbl`}.species = {val}
 #'   ", .con = con)
 #'
+#' 
 #' # `glue_sql()` can be used in conjuction with parameterized queries using
 #' # `DBI::dbBind()` to provide protection for SQL Injection attacks
 #'  sql <- glue_sql("
@@ -110,7 +111,14 @@ sql_quote_transformer <- function(connection) {
     if (is_quoted) {
       regmatches(text, m) <- ""
       res <- eval(parse(text = text, keep.source = FALSE), envir)
-      res <- DBI::dbQuoteIdentifier(conn = connection, res)
+
+      if (length(res) == 1) {
+        res <- DBI::dbQuoteIdentifier(conn = connection, res)
+      } else {
+
+        # Support lists as well
+        res[] <- lapply(res, DBI::dbQuoteIdentifier, conn = connection)
+      }
     } else {
       res <- eval(parse(text = text, keep.source = FALSE), envir)
 

tests/testthat/test-sql.R

@@ -22,6 +22,17 @@ describe("glue_sql", {
     var <- "foo"
     expect_identical(glue_sql("{`var`}", .con = con), DBI::SQL("`foo`"))
   })
+  it("quotes Id identifiers", {
+    var <- DBI::Id(schema = "foo", table = "bar", columm = "baz")
+    expect_identical(glue_sql("{`var`}", .con = con), DBI::SQL("`foo`.`bar`.`baz`"))
+  })
+  it("quotes lists of Id identifiers", {
+    var <- c(
+      DBI::Id(schema = "foo", table = "bar", columm = "baz"),
+      DBI::Id(schema = "foo", table = "bar", columm = "baz2")
+    )
+    expect_identical(glue_sql("{`var`*}", .con = con), DBI::SQL("`foo`.`bar`.`baz`, `foo`.`bar`.`baz2`"))
+  })
   it("Does not quote numbers", {
     var <- 1
     expect_identical(glue_sql("{var}", .con = con), DBI::SQL("1"))