R/show_SQL.R

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)
rstats-db/DBI documentation built on May 5, 2024, 6:42 p.m.