R/dbDataType_AdbiConnection.R

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

#' @rdname AdbiConnection-class
#' @inheritParams DBI::dbDataType
#' @usage NULL
dbDataType_AdbiConnection <- function(dbObj, obj, ...) {
  db_data_type(obj, dbObj@connection$database$driver)
}

#' @rdname AdbiConnection-class
#' @export
setMethod("dbDataType", "AdbiConnection", dbDataType_AdbiConnection)

db_data_type <- function(x, drv) {
  if (inherits(x, "blob")) {
    db_data_type_blob(drv)
  } else {
    dbDataType(ANSI(), x)
  }
}