R/show_SQL.R

In DBI: R Database Interface

Defines functions show_SQL

Documented in show_SQL

#' @rdname hidden_aliases
#' @usage NULL
show_SQL <- function(object) {
  cat(paste0("<SQL> ", object@.Data, collapse = "\n"), "\n", sep = "")
}
#' @rdname hidden_aliases
#' @export
setMethod("show", "SQL", show_SQL)

Try the DBI package in your browser