R/dbBindArrow_DBIResult.R

Defines functions param_stream_to_list dbBindArrow_DBIResult

Documented in dbBindArrow_DBIResult

#' @rdname hidden_aliases
#' @usage NULL
dbBindArrow_DBIResult <- function(res, params, ...) {
  dbBind(res, params = param_stream_to_list(params), ...)
}
#' @rdname hidden_aliases
#' @export
setMethod("dbBindArrow", signature("DBIResult"), dbBindArrow_DBIResult)

param_stream_to_list <- function(params) {
  params <- as.list(as.data.frame(params))
  if (all(names(params) == "")) {
    names(params) <- NULL
  }
  params
}

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.