R/class_con.R

In nbenn/sqlr: Build SQL queries for creating/altering tables

if (requireNamespace("RPostgres", quietly = TRUE)) {
  con_pq <- methods::getClass("PqConnection", where = "RPostgres")
} else {
  methods::setClass("PqConnection",
    contains = methods::getClass("DBIConnection", where = "DBI")
  )
  con_pq <- methods::getClass("PqConnection")
}


#' Dummy connection object for PostgreSQL
#' @export
simulate_postgres <- function() {
  methods::new("PqConnection")
}