R/dbQuoteString_PqConnection_character.R

In RPostgres: C++ Interface to PostgreSQL

#' @rdname quote
#' @usage NULL
dbQuoteString_PqConnection_character <- function(conn, x, ...) {
  if (length(x) == 0) return(SQL(character()))
  if (is(conn, "RedshiftConnection")) {
    out <- paste0("'", gsub("(['\\\\])", "\\1\\1", enc2utf8(x)), "'")
    out[is.na(x)] <- "NULL::varchar(max)"
  } else {
    out <- connection_quote_string(conn@ptr, enc2utf8(x))
  }
  SQL(out)
}

#' @rdname quote
#' @export
setMethod("dbQuoteString", c("PqConnection", "character"), dbQuoteString_PqConnection_character)