diff --git a/R/dbQuoteIdentifier_PqConnection_Id.R b/R/dbQuoteIdentifier_PqConnection_Id.R index 86573b4c..b13851f4 100644 --- a/R/dbQuoteIdentifier_PqConnection_Id.R +++ b/R/dbQuoteIdentifier_PqConnection_Id.R @@ -1,20 +1,7 @@ #' @name quote #' @usage NULL dbQuoteIdentifier_PqConnection_Id <- function(conn, x, ...) { - stopifnot(all(names(x@name) %in% c("catalog", "schema", "table"))) - stopifnot(!anyDuplicated(names(x@name))) - - ret <- "" - if ("catalog" %in% names(x@name)) { - ret <- paste0(ret, dbQuoteIdentifier(conn, x@name[["catalog"]]), ".") - } - if ("schema" %in% names(x@name)) { - ret <- paste0(ret, dbQuoteIdentifier(conn, x@name[["schema"]]), ".") - } - if ("table" %in% names(x@name)) { - ret <- paste0(ret, dbQuoteIdentifier(conn, x@name[["table"]])) - } - SQL(ret) + SQL(paste0(dbQuoteIdentifier(conn, x@name), collapse = ".")) } #' @rdname quote