R/show_AdbiDriver.R

In adbi: 'DBI' Compliant Database Access Using 'ADBC'

#' @rdname AdbiDriver-class
#' @inheritParams methods::show
#' @usage NULL
show_AdbiDriver <- function(object) {

  cat("<AdbiDriver>\n")

  if (dbIsValid(object)) {
    cat("  Type: <", class(object@driver)[1L], ">\n", sep = "")
  } else {
    cat("  INVALID\n")
  }

  invisible(object)
}

#' @rdname AdbiDriver-class
#' @export
setMethod("show", "AdbiDriver", show_AdbiDriver)