R/dbGetConnectArgs_DBIConnector.R

Defines functions dbGetConnectArgs_DBIConnector

Documented in dbGetConnectArgs_DBIConnector

#' @rdname hidden_aliases
#' @usage NULL
dbGetConnectArgs_DBIConnector <- function(drv, eval = TRUE, ...) {
  conn_args <- drv@.conn_args
  if (isTRUE(eval)) {
    conn_args <- lapply(conn_args, function(x) {
      if (is.function(x)) x() else x
    })
  }
  conn_args
}
#' @rdname hidden_aliases
#' @export
setMethod("dbGetConnectArgs", signature("DBIConnector"), dbGetConnectArgs_DBIConnector)

Try the DBI package in your browser

Any scripts or data that you put into this service are public.

DBI documentation built on June 22, 2024, 9:41 a.m.