R/dbGetStatement_PqResult.R

In rstats-db/RPostgres: C++ Interface to PostgreSQL

#' @rdname PqResult-class
#' @usage NULL
dbGetStatement_PqResult <- function(res, ...) {
  if (!dbIsValid(res)) {
    stop("Invalid result set.", call. = FALSE)
  }
  res@sql
}

#' @rdname PqResult-class
#' @export
setMethod("dbGetStatement", "PqResult", dbGetStatement_PqResult)