Merge pull request #324 from r-dbi/b-dbitest

chore: Improve `dbQuoteIdentifier()` for `Id()` objects
r-dbi · Apr 1, 2024 · e7b3507 · e7b3507
2 parents b5b5940 + d314af0
commit e7b3507
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/dbQuoteIdentifier_MariaDBConnection_Id.R b/R/dbQuoteIdentifier_MariaDBConnection_Id.R
@@ -4,8 +4,7 @@ dbQuoteIdentifier_MariaDBConnection_Id <- function(conn, x, ...) {
   if (length(x@name) >= 3 && any(x@name[[length(x@name) - 2]] != "def")) {
     stop('If a "catalog" component is supplied in `Id()`, it must be equal to "def" everywhere.', call. = FALSE)
   }
-  ids <- lapply(unname(x@name), function(x) dbQuoteIdentifier(conn, x))
-  SQL(do.call(paste, c(ids, list(sep = "."))))
+  SQL(paste0(dbQuoteIdentifier(conn, x@name), collapse = "."))
 }
 
 #' @rdname mariadb-quoting